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FOREWORD 


This User's Manual was prepared by Dr. R. Michael Evans of the Aerotherm Divi- 
sion of Acurex Corporation for the JANNAF Performance Standardization Working Group 
under Contract NAS8-30930 from the George C. Marshall Space Flight Center. This 
manual contains complete documentation for the BLIMP-J version of the BLIMP computer 
program. This program serves as the standard boundary layer prediction method for 
the JANNAF rocket engine performance prediction and evaluation procedure. 

The BLIMP program was originally developed for NASA/MSC under Contract NAS9- 
4599 by Mr. Eugene P. Bartlett and Dr. Robert M. Kendall. It was extended to turbu- 
lent flow under joint sponsorship of NASA/MSC and the Air Force Weapons Laboratory. 
The present version contains several extensions to the previous versions. 
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ABSTRACT 


The JANNAF standard procedure for prediction of boundary layer effects in 
liquid rocket engine thrust chambers is described. The computer program, designated 
as Version J of the Boundary Layer Integral Matrix Procedure (BLIMP-J), computes the 
nonsimilar chemically reacting laminar or turbulent boundary layer for ablating, 
transpiration cooled or nonablating internal flow configurations. The flow can be 
considered to be planar or axisymmetric. The program considers either local thermo- 
cynamic equilibrium or frozen composition for a general propellant gas (no restric- 
tion on elemental composition). Mass addition, either by surface ablation or injec- 
tion, for as many as three different materials is permitted. A wide variety of 
surface boundary conditions are available ranging from assigned wall temperatures 
and mass injection rates to surface equilibrium while satisfying a steady-state wall 
energy balance. The program uses a novel numerical solution procedure, termed an in- 
tegral matrix approach, which is equivalent to a higher order finite difference ap- 
proach (using spline fits). Thus, the code is capable, within practical limits, of 

obtaining very accurate and economical solutions to the governing differential equa- 
tions (momentum, energy, and species). The interface of this program with other pro- 
grams of the JANNAF standardized performance prediction and evaluation procedure for 
rocket engines is also described. 

Copies of this document and the computer program can be obtained from the 

Chemical Propulsion Information Agency (CPIA), APL/JHU, 8621 Georgia Avenue, Silver 

Spring, Maryland, 20910, Attn: Mr. T. L. Reedy. 
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SECTION 1 


INTRODUCTION 

The BLIMP computer program was developed to provide a fast, highly accurate 
solution procedure for the general class of gas phase boundary layer flow problems 
encompassing a broad range of boundary conditions. The solution procedure applies 
to the laminar or turbulent, nonsimilar, multicomponent, equilibrium boundary layer 
for axisymmetric or planar flow and for general chemical systems. Version J of this 
program has been specially modified to interface with other JANNAF codes for perfor- 
mance prediction of liquid rocket motors.* 

The initial development of the Boundary Layer Integral Matrix Procedure (BLIMP) 
was performed under NASA Contract NAS9-4599 and is presented in Reference!. The 
turbulent model, which was later added, is described in Reference 2. In 1972 BLIMP was 
selected by the JANNAF Boundary Layer Subcommittee to fill the need for an efficient 
and accurate boundary layer prediction procedure. Shortly thereafter work began on 
revising the BLIMP code to satisfy special requirements for the JANNAF program. 

BLIMP is intended to serve as a rigorous boundary layer program in connection with 
other JANNAF reference programs such as CICM, DERi and TDK (References 3-5) for the 
prediction of liquid rocket motor performance. Special input and output procedures, 
have been included to facilitate this interface (see Section 6.10). 

This manual is intended to contain complete documentation of the BLIMP-J pro- 
gram. Section 2 contains a description of the mathematical modeling of the boundary 
layer flow including discussions of the general conservation equations, turbulent 
flow, general chemistry considerations and evaluation of the thermodynamic properties. 
Three turbulent models are described and have been included in the program; although, 
•the Kendall model is the accepted model in the JANNAF standardized prediction proce- 
dure. The last part of Section 2 inlcudes a list of limitations of the current for- 
mulation. The governing equations are transformed to a new coordinate system and 
the integral matrix procedure is discussed in Section 3. The matrix form of the 
equations and the Newton-Raphson procedure are also discussed in Section 3. Section 
4 contains a description of the subroutines, an overlay structure, a flow chart, a 
Complete list of the program, and a list of the Fortran variables. Input instructions 


* 

The JANNAF rocket engine performance prediction and evaluation procedure is com- 
pletely described in Chemical Propulsion Information Agency publications 245 and 246. 


including a description of the input quantities and suggested values for many of the 
input parameters are given in Section 5. The input instructions are expanded with 
detailed discussions of many program options and other user oriented information in 
Section 6. The BLIMP output, including some debug output, is described in Section 7 
Three sample cases are presented in Section 8. Complete lists of the input and sam- 
ples of the output are given. 
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SECTION 2 


MATHEMATICAL MODEL OF THE BOUNDARY LAYER 


The mathematical model for the chemically reacting boundary layer is presented 
in this section. The differential conservation equations which govern laminar or 
turbulent compressible flow for either planar or axisymmetric bodies are developed. 

In addition, the auxiliary relations for the equation of state for a chemically 
equilibrated mixture, multicomponent transport properties, and turbulent transport 
properties necessary for closure of the set of equations are given. 


2.1 GENERAL CONSERVATION EQUATIONS 

In the present analysis, the usual turbulent flow technique of breaking the 
species, velocity, and enthalpy fields into mean and fluctuating components, time 
averaging, and making appropriate order of magnitude approximations is used. The 
results of these manipulations will be taken as a point of departure for all the 
conservation equations. The species mass balance equation can thus be written as 




IF - 


li^.r" 


( 2 - 1 ) 


where s and y are the streamwise and normal coordinates, respectively, u and v are 
the velocity components in the s and y directions, respectively, is the mass frac- 
tion of species i, r is the metric coefficient for streamline spreading for three- 
dimensional flows (radius from the body centerline to the point of interest in a mer- 
idian plane for axisymmetric flow), k is zero for a flat plate and unity for a body 
of revolution, p is the density, and <Ij. represents the rate of mass generation of 
species i per unit volume due to chemical reaction. The individual species turbu- 
lent eddy diffusivity pe[).j is defined in terms of the correlation of the fluctuating 
components of concentration and normal velocity, that is. 


(pv)’K.' 
■ 3K./3y 


( 2 - 2 ) 



and Is the mass-diffusion rate of species 1 due to molecular processes. Since 
transverse curvature is to be included in the present analysis, r must be treated as 
a function of y whereas in the typical boundary layer analysis, r is set equal to r^, 
the surface value of r. The relationship between r, r^, and y is 

r(s,y) = r^(s) - y cos 0 (2-3) 

The coordinate system being used, is shown in Figure 2-1. 

In Equation (2-1) and in other conservation equations to follow, turbulent 
transport terms are expressed in Boussinesq form, that is, eddy viscosity, eddy dif- 
fusivity, and eddy conductivity. Hence all terms are time-averaged quantities and 
no need exists for using a superscript bar. In the order-of-magnitude arguments, 
terms of the following types have been eliminated: (1) triple correlations, (2) 

derivatives of turbulent correlations parallel to the wall, and (3) correlations in- 
volving turbulent components of molecular transport mechanisms. 

When Equation (2-1) is summed over all species, the global continuity equa- 
tion results: 


8pur*^ . 3pvr*^ 
as 3y 


Combining Equations (2-1) and (2-4), one obtains the species 


pu 


3s ^ P'' 3y (p^D. 3y ■ ^i) 


(2-4) 

conservation equation 
+ (2-5) 


which can be written for each species i under consideration. The molecular diffu- 
sion rate j^- is expressed in general as 



nT 8 -1 
- “i w 


( 2 - 6 ) 


where is the multicomponent diffusion coefficient of species i into j, dT is the 
multicomponent thermal diffusion coefficient of species i, i?i is the local gas mix- 
ture molecular weight, and is the molecular weight of species i. The Stefan- 
Maxwell (Reference 6) relations may also be used to express j^. 
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where is the mole fraction of species i and is the binary diffusion coeffi- 

cient of species i into j. Both of these expressions are complex in that the multi- 
component diffusion coefficients are difficult to evaluate, and the Stefan-Maxwell 
relations provide only implicit expressions for the j.. For the special case when 
all diffusion coefficients can be assumed equal and thermal diffusion can be ignored. 
Pick's law results: 

3K 

( 2 - 8 ) 

This technique is not used in this analysis.* A further simplification is used to 
work in terms of "elemental" conservation rather than species conservation. The 
term "element" is used to refer to those atoms or groupings of atoms which according 
to equilibrium relations are conserved. Reference 7 discusses the merits of this ap- 
proach in more detail. Defining as the mass fraction of "element" k in species 
i, multiplying the species equations (Equation (2-5)) by , and summing over all 
species results in the following conservation of "elements" equations: 



where is the mass fraction of "element" k in the system defined by 


i 

It has also been assumed that all cq. = Cp. The "elemental" approach results in 
significantly fewer simultaneous equations than the conservation of species approach, 
and the equating of all gives sufficiently accurate solutions for most types of 
problems. The term Zaj^.(})/in Equation (2-9) is the production of "element" k which 
for equilibrium chemistry is set to zero. (For nonequilibrium chemistry the produc- 
tion terms can be non-zero. By retaining the production term in this conservation 
equation, the same formulation can be used for equilibrium or nonequilibrium chemis- 
try by the simple expedient of setting the production terms to zero for equilibrium 
conditions.) 


★ 

An option is available in the BLIMP program which reduces to Fick's law; however, 
the program is written to retain the more complex bifurcation approximation to be 
discussed later in this section. 
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The streamwise momentum equation can be written as 
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where P is the local static pressure, aind the eddy viscosity is defined in 
of the Reynolds' stresses of turbulent flow by 


= _ (pv)'u' 
8y 


The transverse direction momentum equation reduces to zero when longitudinal 
ture effects are ignored. 

The energy equation for this general chemistry boundary layer is 


3H^ 3H^ 

^ + ov ^ = — 
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where H.j. is the total enthalpy (static plus kinetic) 


Hr = h.^ 


h is the static enthalpy including chemical as well as sensible contributions 


■ Z 


h. is the static enthalpy of species i given by 


( 2 - 1 . 1 ) 

terms 


(2-12) 

curva- 


(2-13) 


(2-14) 


(2-15) 
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(2-16) 



T is the temperature, h? is the heat of formation of species i at the reference tem- 
perature T°, Cp^ is the specific heat of species i, Cp is the frozen specific heat 
of the gaseous mixture defined as 




(2-17) 


X is the thermal conductivity, R is the universal gas constant, x. is the mole frac- 

3 

tion of species j, and the turbulent enthalpy transport coefficient is defined by 


EK.(pv)'h.‘ 
i 
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(2-18) 


In the energy equation, as in the species conservation equations, it is neces- 
sary to evaluate molecular diffusion flux j.. As discussed earlier, the general ex- 
pressions for these terms are difficult to work with, therefore an approximate tech- 
nique for multicomponent diffusion has been derived. A bifurcation approximation 
introduced by Bird (Reference 8) and discussed in detail by Bartlett, et al. (Refer- 
ences 9 and 10) permits explicit solution of the Stefan-Maxwel 1 relations (Equation 
(2-7)) for in terms of gradients and properties of species i and of the system as 
a whole.* In this procedure, the binary diffusion coeffifient is approximated by 
the function 


■^ij 


D(T.P) 

^•'^3 


(2-19) 


where F is a reference diffusion coefficient and is a diffusion factor for spe- 
cies i. The are determined for a given chemical system by a least squares curve- 
fit of actual diffusion data. The accuracy of the approximation was found to be very 


The bifurcation approximation is introduced at this point to allow completion of the 
development of the governing equations. The evaluation of D and the F. to establish 
the diffusion coefficients will be discussed in Section 2.3. ^ 
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good (within 5 percent for most cases, Reference 9) and the F. were observed to be 
very weak functions of temperature. (They are assumed to be independent of tempera- 
ture in the BLIMP code.) The multicomponent thermal diffusion coefficients, dT can 
be approximated by 


, C pDup 
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( 2 - 20 ) 


which represents a generalization of a correlation of binary diffusion data (Reference 
9). With the aid of these approximations the Stefan-Maxwell equations can then be 
solved explicitly (Reference 9) for the diffusive flux. The following definitions 
are introduced for simplicity. 
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V. = ln(p„T ^) 


Ct = -0-5 
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The species and "elemental" laminar flux relations can thus be expressed as 


. (2-21) 
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In addition, the diffusive energy flux terms in Equation 2-13) can be expressed as: 
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The "elemental" species conservation equation becomes 


3K. 

pu ^ + pv 


!^ = J_ 3_ ^ i \ 

3y 3y I 3y ■ '^k/ 


(2-25) 


and the energy equation can be expressed as 

sr ♦ »’' 5T ■ 7 1 ? t'- f-". * 

If equal diffusion coefficients are assumed, y, = lA, C = C , and h = h. When 

O P P 

thermal diffusion is to be neglected, = 0 and y^ = In y^. 

Equations (2-4), (2-11), (2-25), and (2-26) comprise the boundary layer con- 
servation equations, including the approximations for unequal thermal and multicom- 
ponent diffusion coefficients of Reference 9. The equations are parabolic in nature, 
therefore requiring specifications of the dependent variables, their derivatives, or 
a linear combination thereof along the wall (y = 0), the edge of the boundary layer, and 
at the initial body station. Typical sets of boundary conditions will be discussed 
later in this section. Also necessary in the mathematical formulation of the problem 
is the specification of the molecular transport properties, equation of state and 
equilibrium relations for the multicomponent gas, and a description of the eddy vis- 
cosity, conductivity and diffusivity. These will be discussed in the following para- 
graphs. 

2.2 EQUATION OF STATE AND EQUILIBRIUM RELATIONS 

The BLIMP program has been formulated in terms of perfect gas behavior of each 
species. 

P^ = n.RT (2-27) 
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The mixture of gases is treated as an ideal gaseous solution. Basically this means 
that the mixture equation of state can be written as 


p = fiRI 
n 


(2-28) 


and the mixture thermodynamic state variables can be expressed as 


( 2 - 29 ) 

where f is the property, is the mole fraction of species i, f.j is evaluated at the 
mixture temperature, and the bar indicates that f is on a mole basis. A complete 
discussion of gas and condensed phase equilibrium can be found in Reference 7. The 
following discussion pertains only to the gas phase thermodynamics. The BLIMP code 
can treat the general equilibrium gaseous system (shifting equilibrium) or a frozen 
composition "ideal gas". 

2.2.1 Chemical Equilibrium 

In general, K chemical elements, Nj^, in a gas system will interact to form 
a number of chemical species,* (gas phase). If enough time has elapsed so 
that thermodynamic and chemical equilibrium is established, the thermodynamic state 
of the system, including the relative amounts of chemical species present, is com- 
pletely determined if two independent thermodynamic variables are known in addition 
to the elemental composition. This condition may be stated mathematically by exam- 
ining the governing equations for such a system, and showing that the number of in- 
dependent equations is equal to the number of unknown quantities. 

Relations expressing the formation of the gaseous chemical species from the 
gaseous chemical elements may be written as follows:"^ 

K 

E * "i 

k=l 


★ 

"Chemical species" as used here includes molecular, atomic, ionic, and electron 
species. 

*’It should be noted that it is not strictly necessary to write these reactions in 
terms of elements. Rather, an independent set of "base" species may be selected. 
The base species must be selected so that no reaction can be written wherein the 
reactants and the products are all base species. The formulation presented here 
is unchanged with the exception that elements are taken to mean base species. For 
a complete discussion of base species see Reference 7. 
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In the above, represents the number of atoms of element k in a molecule of spe- 
cies i. At equilibrium, the second law requires that these independent reactions 
occur without change in free energy, i.e., the free energy of the reactants equals 
the free energy of the products. Mathematically this is 


(2-31) 

k 

where the are the partial molar free energies of the species (also referred to as 
the chemical potentials). The free energy of species i at the mixture temperature 
and partial pressure, , can be related to the standard state free energy G?, which 
is; the free energy of the species at the same temperature but undiluted and at one 
atmosphere pressure, by the relation 




(2-32) 


where P° is one atmosphere. For a gas obeying the perfect gas law (V^ = RT/P^) this 
becomes 

G. - G° = RT In P. (2-33) 

where P^ , the partial pressure of species i, is in units of atmospheres. 

Substitution of Equation (2-33) for G. and Gj^ into Equation (2-31) yields 

-AG° 

-TT ■ ''i - Z Si '■k 

k 

where the standard-state free energy change of the formation reaction for species i 
is defined by 





C..G° 
ki k 


(2-35) 


The term -AG°/RT is the equilibrium constant (In kp.) for the formation reaction of 
species i. The standard-state free energy is a function of temperature only and is 
obtained for each molecular species from 



(2-36) 
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where enthalpies are obtained relative to some chemical base state, often the ele- 
ments in their most natural form at 298°K and one atmosphere (JANNAF base state). 

(The curve fit constants for the evaluation of h? and s? are part of the BLIMP input.) 

For each chemical element introduced into the system, the conservation of 
atoms dictates that the amount of any element k in the gas (regardless of molecular 
configuration) must sum to the total amount of element k in the system. Mathemati- 
cally, this may be written, for each element k, as 

Mass fraction ~ I 

of element k = r p o ■xi\ 

input to the Hi? \ 

system i=l 

where ^is the mixture molecular weight defined by 

^ P. 
i=l 

In addition, there exists the requirement that the partial pressures must sum to the 
total system pressure . . 

I 

i=l 

Also, mixture thermodynamic properties, such as specific enthalpy, are related to 
the species concentrations by equations of the form 

I 

i=l 

Consider now the number of independent equations for the system. The number 
of gas phase equilibrium relations (Equation 2-34)) is equal to the number of gas 
phase species I minus the number of elements K (because Equations (2-34) are trivial 
when i=k). Note that the system temperature is contained implicitly in Equations 
(2-34) through the temperature dependence of the equilibrium constants. There are 
K conservation of elements equations (Equations (2-37)), one for each atomic element 
introduced into the system. The requirement that the partial pressures sum to the 
system pressure (Equation (2-39)) contributes one additional equation. For any addi- 
tional thermodynamic properties of the mixture (enthalpy, entropy, etc.), there ex- 
ist equations such as Equation (2-40). 
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Consider next the variables appropriate to this formulation of the problem. 
The relative concentrations of the I species in the gas phase are given by the P^. 's 
(P^ = x.P). In this formulation, the composite system molecular weight, Wi is also 
a variable. There are one each of the mixture thermodynamic variables T, P, h, s, 
etc. The number of variables and available independent equations may be summarized 
as 



No. of Such 

Equation 

No. of Such 

Variables 

Variables 

Number 

Equations 

Pi 

I 

(2-34) 

I - K 

n 

1 

(2-37) 

K 

P 

1 

(2-39) 

1 

T 

1 



hySsP. • . 

n 

of the type (2-40) 

n 

Total 

Variables 

L+n+3 

Total Equations 

I+n+1 


Thus, there are two less equations than there are variables; and so, if two indepen- 
dent variables are specified (e.g. , P and h) in addition to the elemental composi- 
tion, then closure is obtained and the chemical and thermodynamic state of the sys- 
tem may, in principle, be determined. 

2,3 TRANSPORT PROPERTIES 

In addition to the thermochemical state properties discussed in the previous 
section, the program requires mixture transport properties. These include the spe- 
cies diffusion coefficients, mixture viscosity and thermal conductivity. These trans 
port properties are'calculated from expressions which are derived from simple kinetic 
theory and the particular multicomponent diffusion representation previously discus- 
sed in Section 2.1. The development of these expressions is discussed in detail in 
Reference 9. A brief summary of this development and the resulting expressions, are 
presented in this section. (It should be noted that the accuracy of the approxima- 
tions used here has reduced impact for turbulent flows since the transport mechan- 
isms are predominantly turbulent.) 

2.3.1 Diffusion Coefficients 

In Section 2.1 a bifurcation approximation for binary diffusion coefficients 
y/as mentioned. This characterizes multicomponent diffusion phenomena with reason- 
able accuracy without unduly complicating the system of equations to be solved. This 
simplification is achieved through a correlation for binary diffusion coefficients 
of the form 
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(2-41) 








where D is a reference diffusion coefficient and the F^. are diffusion factors. The 
essential elements in this approximation, which impact not only the diffusion coef- 
ficients but also the viscosity and thermal conductivity, as will be seen later, are 
the F.'s and D. The correlations given below have been built into BLIMP. 

P ^ K719_^Q0^ (T)i.6S9 (2-42) 

where T is in degrees Kelvin and P is in atmospheres. 



(2-43) 


It has also been found that self-diffusion can be better represented if a different 
correlation is used. Accordingly, .5^^ is given by 


•^►ii = T (2-44) 

G? 

where 



For most gas systems these correlations are within 5 percent of more exact values 
for temperatures on the order of 3000°K. For greater accuracy the values of the F^ 
and can be calculated, as described in Reference 10, for the specific gas system 
and temperature range. The resulting values can then be directly input into BLIMP 
(see Section 5.2, Group 12). The calculations of the mixture viscosity and thermal 
conductivity are based on the diffusion factors given by Equations (2-41) and (2-44). 
These will be discussed in the following paragraphs. 

2.3.2 Mixture Viscosity 

The expression employed by the BLIMP program to calculate the mixture vis- 
cosity derives from rigorous first order kinetic theory (Reference 6), subject to a 
few simplifying assumptions, as discussed in Reference 9. This is the Buddenberg- 
Wilke mixture formula and is given by: 
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,ix = E 


Xi + 1.385 

j=l ’ 


(2-46) 


where y^. is the viscosity of the pure species i. The y^. may be expressed in terms 


of the self-diffusion coefficients 


^i 6At. RT -^ii 


(2-47) 


where is a ratio of collision integrals based on a Lennard-Jones intermolecular 
potential. Substituting Equations (2-41), (2-44), and (2-47) into Equation (2-46) 
results in the following expression for the viscosity of the multicomponent mixture. 


= poy' 

Ml 

' i=l 


1.385 + 


^1 V 5F? 


(2-48) 


1.385 


This is the expression utilized to calculate the mixture viscosity in BLIMP. 


2.3.3 Mixture Thermal Conductivity 

The thermal conductivity in a polyatomic gas mixture may be represented by. 
(Reference 11) 


k ~ k k 

mix mono-mix int 


(2-49) 


where k . is the thermal conductivity in a mixture computed by neglecting all 
internal degrees of freedom and k..^^ is the contribution to the thermal conductivity 
of the mixture due to the internal degrees of freedom of the molecules. A simplified 
expression for the mono-mixture thermal conductivity can be derived in a manner simi- 
lar to the procedure previously discussed for the mixture viscosity. This simplified 
expression is (from Reference 9) 

*t* 

At. is currently set to a constant value of 1.13 in BLIMP. 
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mono-ini 


X 


■E 



+ 


X k 

1 i mono 






(2-50) 


where k. is the thermal conductivity of the pure species i neglecting all inter- 

1 mono r r 3 3 

nal degrees of freedom of the molecule. The k. may be expressed in terms of the 
^ 1 mono 

y . as 


1 mono 


15 R 


(2-51) 


The contribution to the thermal conductivity from the internal degrees of freedom may 
be expressed as (from Reference 9) . 



(2-52) 


By combining Equations (2-41) and (2-44) with Equations (2-49) through (2-52), the 
mixture thermal conductivity may be written as 



(2-53) 


where , Pg, y^. and Cp are given by Equations (2-21). Thus, Equation (2-53) is the 
expression utilized to calculate the mixture thermal conductivity in BLIMP. Also cal- 
culated for use in the solution procedure and as output are the Prandtl and Schmidt 
numbers which are defined here as 
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(2-54) 


Pf = M r 

k ^p-frozen 

Sc = (2-55) 

2.4 SIMPLIFIED MODELS FOR THERMODYNAMIC AND TRANSPORT PROPERTIES 

2.4.1 Nonreactinq Gas 

It may be desired to supress chemical equilibrium and specify the species com- 
position of the mixture. This option is available in the BLIMP program. In this 
case the mixture properties are calculated from Equations (2-38), (2-39), and (2-40) 
where the P^ are specified through the mixture composition. (Although this approach 
sacrifices some of the generality of the program it results in shorter computation 
times.) In this case the mixture transport properties are directly input as explicit 
expression for the mixture viscosity and mixture Prandtl number as functions of the 
temperature. 

This option eliminates the equilibrium chemistry solutions at each node, eli- 
minates any diffusion considerations, and eliminates the necessity to include the 
species equations in the set of equations to be solved. 

2.4.2 Binary Diffusion Approximation 

A significant savings in computation time can be made by reducing the number 
of equations to be solved. In Section 2.4.1 this was done by simplifying the chem- 
istry and transport properties calculations. If it is desired to retain the general 
chemistry option it is still possible to reduce the computation time by reducing the 
number of species equations to two. The procedure applies to gas systems containing 
three or more elements. The simplification is made by grouping the elements into two 
groups which are then considered to diffuse into each other; hence, binary diffusion. 
The use of this option is discussed in Section 6.4. In many cases where the ele- 
ments in each group have roughly the same molecular weight this approximation intro- 
duces very little inaccuracy into the boundary layer solution procedure. 
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2.5 TURBULENT FLOW CONSIDERATIONS 


In tha conservation equations developed previously, the concepts of eddy vis- 
cosity, eddy diffusivity, and eddy conductivity were used to express the correlations 
of fluctuating velocity, species, and enthalpy fields in terms of mean field quanti- 
ties. This is only one of several possible techniques of closing the set of equa- 
tions (assuming satisfactory expressions for the eddy parameters are available), and 
it does not provide any information regarding the evolution of the turbulent correla- 
tions as the flow progresses downstream. Admittedly, it would be more desirable to 
describe the turbulent fluctuations in a more complete manner such as with an entrain 
ment relation, turbulent kinetic energy relation, or a local turbulent constitutive 
equation (Reference 12). However, these techniques are still in early stages of de- 
velopment even for incompressible single component flows, therefore a more proven ap- 
proach was selected for the present analysis. The Boussinesq description of turbu- 
lent boundary layers has proved to be very useful, particularly for complex reacting 
flows such as are being described here, and will be used exclusively in the present 
analysis. 

There is a wide amount of latitude possible even within the eddy viscosity 
framework of turbulence, particularly in applying classical incompressible models to 
compressible flows. The following subsections decribe the turbulence models cur- 
rently built into BLIMP. The three models are those of Kendall (Reference 13) Bush- 
nell and Beckwith (References 14 and 15), and Cebeci and Smith (References 16 and 17) 
The JANNAF standardized prediction procedure uses the Kendall model. 

2.5.1 General Features 

Boussinesq's eddy viscosity concept is adapted to write the Reynolds stresses 
as 


- (pv)'u' 


pe, 


9P 
m 3y 


and a similar relation is used to define eddy conductivity, e^* 


(2-56) 


All three models in the present discussion employ the Prandtl mixing length 
hypothesis in which it is assumed that 

= Jlv. (2-57) 

m t 

* 

This is a simplified form of Equation (2-18) 
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where Z is the mixing length and is the turbulent velocity. The differences be- 
tween the three models come about through the formulation of I and v^. Kendall and 
Cebeci treat the boundary layer as a composite layer consisting of inner and outer 
regions. In the inner, or wall, region the turbulent velocity is written as 



(2-58) 


and the mixing length is assumed to be proportional to the distance from the wall. 

In the outer, dr wake, region the boundary layer is assumed to behave similarly to 
free turbulent shear flow with v^ = u^, the free stream velocity, and £ = c6* where 
c is a constant and 6* is a boundary layer characteristic thickness taken as the ve- 
locity defect thickness. Thus, 


- cu 6* 
m e 


(2-59) 


where 



(2-60) 


Bushnell and Beckwith, however, treat the boundary layer as a single layer and apply 
Equation (2-57) throughout by introducing the intermittency concept in the definition 
of £. The most fundamental differences in the models arise, however, from the manner 
in which the mixing length expression is obtained. The Cebeci and Bushnell expres- 
sions originate from Prandtl's proposal that in the region of the development of tur- 
bulence 



which has as a solution 


(2-61) 


£ = ky 


(2-62) 


The models are arrived at by significant modifications to this solution to account 
for the effects of variable properties, pressure gradient, Reynolds number, etc. It 
is important that these modifications were made to the solution and not to the basic 
proposition as expressed by Equation (2-61). The Kendall model, on the other hand, 
follows from modifications to the basic proposition to account for the effects of 
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variable properties (see Equation (2-65)). It has been observed that differences in 
the models become more pronounced as the degree of property variation increases (Re- 
ference 18). 

The turbulent transport of scalar quantities is treated the same way as momen- 
tum by introducing the concepts of eddy conductivity, and eddy diffusiv-ity, Cp. 

Turbulent Prandtl and Schmidt numbers are defined as Pr. = c /e. and Sc. s e /e„. 

t m h t m D 

Cebeci proposes an expression for Pr^ as a function of the distance from the v/all 
but in the Kendall and Bushnell -Beckwith models Pr^ is assumed to be a constant. The 
turbulent Schmidt number is also taken to be constant in all the models. 

2.5.2 Kendall Model 

This model employs the two-layer concept of the turbulent boundary layer. The 
wall law is based on the following three concepts: 

• lim £ 0 

y + 0 

• lim d£/dy =0 
y 0 

• Rate of increase of the mixing length with y is proportional to the dif-. 
ference between the value postulated by Prandtl (ky) and its actual value 

^~(ky-£) (2-63) 

The proportionality factor in this relation is assumed to be dependent on the local 
shear stress and local kinematic viscosity 



where y^ is a constant. The values of the constants k and y^ recommended in this 
a a 

model are 0.44 and 11.823, respectively. These constants have been obtained by 
matching the predictions with experimental data in incompressible turbulent boundary 
layers with and without blowing (Reference 13). (Physically k can be considered as a 
measure of the rate of growth of the mixing length with respect to distance from the 
wall and yt is a measure of the thickness of the laminar sublayer.) The validity of 
the model for flows with wall blowing and streamwise pressure gradient is argued on 
the basis of using the local flow properties, such as local shear, in the model. 
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For compressible flow, the wall law is modified as follows: 


^ J y.v 


(2-65) 


wherei instead of describing the length scale of a turbulent eddy, the mass of the 
eddy, pt, is related to the mass available between the wall and the point of inter- 
est. The constants k and y^, however, are left at their incompressible values. The 
above integral-differential equation is solved numerically to obtain the local value 
of the mixing length 1 . 

In the wake region, it is assumed that the eddy viscosity is a constant and 
is given by Clauser's expression (Equation (2-59)) where c = 0.018. The wall and 
the wake regions are matched by the following procedure: the expression for the 

wall region is used until it exceeds the wake value at which point the ivake value of 
is used for the remainder of the boundary layer thickness. This value is linearly 
damped in the outer-portions of the boundary layer so that a value of zero occurs at 
the boundary layer edge. 


2.5.3 Cebeci -Smith Model 

As it was mentioned previously, a two-layer model is also used by Cebeci and 
Smith. In the inner (wall) region, the Van Driest (Reference 19) form of mixing 
length is now used: 

£ = k^[l - exp (- yVA'*’)] (2-66) 


where 


+ 

y 


V 


Van Driest suggested constant values of 0.4 and 26 for the k^ and A^, respectively. 
(These have essentially the same meaning as k and y^.) In the Cebeci model, however, 

d 

these constants are replaced by functions accounting for pressure gradient and blow- 
ing. Compressibility effects are also accounted for by using local values for y and p 


For flows with pressure gradient and mass transfer, Cebeci replaced the wall 
shear in the damping parameter by which he obtained from the simplified form of the 
momentum equation in the sublayer (Reference 16): 
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(2-67) 


dy s dx 


The solution of this equation at y* = 11.8 results in 



p+ . 

- ^ [exp (11.8 V’) - 1] + exp (11.8 
' w 



where 



( 2 - 68 ) 


(2-69) 


and A = 26. 

Following Van Driest's approach to arrive at the mixing length formulation 
with a damping factor in the inner region, Cebeci derived the following expression 
for eddy conductivity: 

S ” - exp (- y'^/F/B^)] 

where 

= B I ^ [exp (11.8 V^) 

and kj^ = 0.44 , B = 34. 

Cebeci (Reference 17) further argued that the above values of h^. A, and 

B are only satisfactory for large Reynolds number (Re„ > 6000) and he proposed func- 

y 

tion of Re. for k , k. , A, and B. There is some question as to the validity of the 
0 m h 

Re. dependence, particularly for compressible flows in nozzles. Furthermore, the 
y 

model is completely adequate without this dependence.* For these reasons the con- 
stant values of k , k, , A, and B are used. (The values of these constants were es- 
rn n 

tablished by correlation with incompressible flow data.) 

The turbulent Prandtl number (Pr^ = is obtained from Equations (2-57), 

(2-58), (2-66). and (2-72); 


1] + exp (11.8 vy. 


(2-71) 


(2-70) 


Personal communication: 


Tuncer Cebeci, MacDonnell -Douglas, Long Beach, California. 
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(2-72) 


Pr 


t 


k^[l - exp (- y'^/A'^)] 
kf,[l - exp (- y'^^V/B'*^)] 


Although Equations (2-66) and (2-70) are valid only in the boundary layer inner re- 
gion, Cebeci shows that Equation (2-72) agrees satisfactorily with experimental data 
of References 20, 21, 22, and 23 throughout the boundary layer and, hence, it is so 
used. 

In the wake region, Cebeci uses the Clauser expression for eddy viscosity. 
Equation (2-59) with c =0.0168. This expression is damped in the same way as in 
the Kendall model. 


2.5.4 Bushnell-Beckwith Model 

The Bushnell-Beckwith model is a single layer model which reduces to the Van 
Driest form of mixing length near the wall and is modified in the outer region by an 
intermittency factor y (Reference 24). The mixing length expression is written as: 


I = K [1 - exp (- 


(2-73) 


where 


^ - 1 - erf [5(y/6 - 0.78)1 
^ ■ 2 


(2-74) 


and 


f(y/<5) = tanh 




(2-75) 


and the constants are: k^^ = 0.4, K = 0.08, A = 26. The boundary layer thickness 6 

appearing in Equations (2-73), (2-74), and (2-75) is defined as the distance normal 
to the wall where the velocity ratio (u/u^) = 0.995. 

The present model has been tested against experimental data by Bushnell 
and Beckwith (Reference 25). In their work, however, they use a different function 
than the one given by Equation (2-75). They assume that f = y/6 in the inner wall 
region, y/6 ± 0.1, and it is a function of the incompressible shape factor (H = 6*/0) 
in the far wall region, y/6 >. 0.3. The values of f in the far wall region are ob- 
tained from a curve fit to experimental data of VS versus H. In the interval, 

0.1 < y/6 < 0.3, a straight line is used to join the inner and far wall regions. 

Based on this model, Bushnell and Beckwith compared their predictions of flows with 
blowing and pressure gradient with experimental data of References 26 and 27. They 
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report (Reference 25) that in the application of the model to flows with wall blow- 
ing, the effect of blowing could be accounted for only when the wall damping factor 
of Van Driest, A^, was made an experimentally based function of the blowing rate. 

The present functional form of f. Equation (2-75), is based on the recommendation of 
Harris.* 

As noted by Harris (Reference 15), based on the available data, there ex- 
ists a lack of conclusiveness as to how the turbulent Prandtl number should be formu- 
lated in terms of local boundary layer parameters under different flow conditions. 
Therefore, a constant value of 0.9 is used for Pr^ in this model. 

2.5.5 Boundary Layer Transition 

Transition from laminar to turbulent flow can be specified in two ways. In 

the first when a user specified value of Re. is exceeded the turbulent transport 

y 

properties are introduced into the calculations; however, they are reduced by a 
scale factor varying between 0 and 1 to simulate a transition zone. Thus 

" = ^(model) 

where 

I(s) = ^ 1 < S < 2S^ 

I(s) =0 S < (2-76) 

I(s) = 1 5^25^. 

and is the value of S (streamwise coordinate) at which the transition criteria is 
exceeded. 

In the second method, transition is activated at a user specified position. 

In this case there is no transition zone. 

2.6 BOUNDARY CONDITIONS 

The usual set of boundary conditions for the boundary layer flow problem 
consists of the specification of initial profiles for the dependent variables f ' , 

H.J., and Kj^, plus additional specifications of these quantities along the wall and 
at the edge of the boundary layer, and the specification of f^ along the wall. How- 
ever, these boundary conditions have been greatly generalized to include flows such 


♦ 

Personal communication. 
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as transpiration cooling and ablation. The numerous options resulting from this 
generalization are discussed below. 

The boundary layer edge conditions typically are found from an isentropic ex- 
pansion from known elemental gas composition and stagnation conditions. Thus, given 
a set of stagnation conditions and a description of local static pressure along the 
surface of interest, the techniques of Reference 7 may be used to establish the en- 
tropy of the gaseous mixture which, v/hen combined with the specified pressures, can 
be used to establish the complete equilibrium edge gas state at each body station. 
That is, the total enthalpy, edge velocity, edge pressure, and edge species concen- 
trations can be determined. The boundary conditions would then consist of 


^edge ~ '^edge/expansion 


Hx = iir (2-77) 

edge edge/expansion 

edge edge/expansion 


An additional constraint at the boundary layer edge which is necessary only when cu- 
bics are used to represent the profiles is the requirement of zero slope, i.e.. 


du 

dy 


edge 


= 0 


dH.j 

3y‘ 

dK, 
k 

dy 


[edge 


(2-78) 


[edge 


= 0 


It is also possible to input the edge velocity rather than calculate it by 
isentropic expansion. In this case the edge thermodynamic state is calculated from 
the input pressure, input elemental composition, and the static enthalpy calculated 
from 


h 



2 edge 


(2-79) 


The resulting boundary conditions are the same as those of Equations (2-77). 

Initial profiles of velocity, total enthalpy, and elemental concentration are - 
more difficult to establish for the general problem, therefore calculations are of- 
ten started with reasonable assumed profiles far upstream of the region of interest 
so that effects of erroneous assumptions will die out. Another possibility is to 
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assume a similar solution as a starting profile. This assumption reduces the equa- 
tions to ordinary differential equations at the starting point, which may be solved 
simultaneously for a set of profiles unique to the assumed edge and wall state. This 
is the most common method of establishing initial profiles. (The user may supply a 
starting profile or use the similarity starting profile, in which case the first guess 
may be input or generated by the program.) 

The wall boundary conditions allow the widest selection of options. The sim- 
plest combination is the straightforward assignment of velocities, enthalpy, and 
elemental concentrations at the wall; 

no slip 

specified p v 
w w 

(2-80) 

specified enthalpy of gas at the 
wall 

specified wall gas elemental 
composition* 

Wall temperatures may be used to find wall enthalpy in the above formulation. Also, 
wall mass diffusive fluxes of up to three individual injectants may be assigned in’ 
lieu of and With the values of the dependent variables all directly as- 

signed in this manner, the boundary layer problem is uncoupled from the surface 
chemistry interaction. 

The inclusion of surface material /boundary layer gas interaction chemistry in 
the boundary layer problem forms the second major set of wall boundary condition op- 
tions. Using the surface thermochemistry techniques of Reference 7, it is possible 
to specify given mass fluxes of the (up to) three injectants (or transpirants) at 
the wall and require chemical equilibrium between the injectants, the wall material, 
and the adjacent gas stream. In this instance, the values of (i.e., T^) and 
are found by simultaneous solution of the local surface chemical equilibrium equa- 
tions, surface mass balances, and the no-slip velocity boundary conditions. 

In the use of this boundary layer technique in conjunction with in-depth char- 
ring ablation analyses, the chemically active injectants might result from the py- 
rolysis of an internally decomposing material, surface material combustion or phase 
change, and mechanical removal. A variation of this type of wall boundary condition 
is to specify the wall temperature or enthalpy and allow the surface chemistry 


p V = p V . . 

w w w w| input 

(c) 


It is physically unrealistic in most cases to assign Kk^ when diffusion coefficients 
are unequal since the contribution to R|^ by preferential diffusion of the various 
"elements" to the surface is not known a-priori. 

These conditions might apply, for example, in a solid propellant rocket nozzle. 
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calculations to compute the necessary 
brium wall boundary condition is 

p^v^ and K)^^. In summary, the surface equili- 

Uw = 0 

no slip 

P V = p v 1 . . 

w w w w [input 

specified p v 
w w 

II 

' 

(2-81) 
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from surface equilibrium requirement 


The final wall boundary condition category involves the use of a steady state 
energy balance at the surface.* A general surface energy balance can best be under- 
stood by examination of a schematic representation of the energy fluxes to an ablating 
or nonablating (m^ = 0) surface: 
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i 


InfinitesimalTy thin 
control volume at 
surface 



Surface 


Summing terms. 


inh +mh -q +q - (pv) h - q . = 0 

n n r- r- T=i 'w W COOd 


g g c c a r 
^ w w w 


(2-82) 


which is valid in either a transient or steady-state situation. In general, an in- 
depth charring ablation solution would be needed to provide the conduction term 
\ond pyrolysis gas rate, m^. Under steady state conditions, the internal 

pyrolysis "front" and the charred surface are assumed to be receding at the same 
rate, therefore requiring that the energy conducted into the wall material must 
equal the enthalpy rise of the wall material and pyrolysis gases. In equation form 
★ 

These conditions might apply to a solid propellant rocket nozzle. 
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q . - m (h - h°) - m (h - h°) = 0 
\ond c' g' g' 


(2-83) 


Substituting Into Equation (2-82), the steady state energy balance becomes 


q + q - (pv) h +mh° + mh° = 0 
\ \ ” « c c g g 


(2-84) 


In this equation, q^^ is the wall value of the energy flux defined in Equation (2-24), 
and is found in the course of the boundary layer solution. The surface equilibrium 
requirement is always used in conjunction with the steady state energy balance. 
Therefore, if one specifies the compositions and heats of formation of the pyrolysis 
gas and char materials, the simultaneous solution of the energy equation above and 
the surface chemistry relations mentioned earlier completely couples the boundary 
layer flow to the surface response. The steady state assumption is good even in 
transient situations for large ablation rates or small thermal diffusivity of the 
ablation material (Reference 17). In summary, the use of the steady state energy 


balance results in the following: 
u„-0 

no slip 



steady state energy balance 
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K|, = Ki, ( 




These are several of the possible wall boundary conditions. Examples of how 
they are implemented and the types of problem to which they apply are discussed in 
Section 6. 


2.7 SUMMARY OF ASSUMPTIONS 

A summary of the assumptions and approximations included in the analysis is 
given below. This does not include those approximations, such as nonreacting gas, 
which may be activated but are not inherent to the formulation of the program. 

• Quasi -steady flow 

• Ideal gas 

• Multicomponent diffusion is modeled by the bifurcation approximation. The 
resulting and coefficients are assumed to be independent of tempera- 
ture. 
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Diffusion introduced by pressure gradients and body forces is neglected. 

Viscosity and thermal conductivity are calculated by the mixture approxi- 
mations of Buddenberg and Wilke, and Mason and Saxena, respectively. 

Pressure gradients normal to the wall are assumed to be zero. Thus the y 
momentum equation can be dropped from the set of governing equations. 

Body forces, such as gravity, are not included in the formulation. 

Only gas phase flow is considered. 

There is no model for radiation emitted or absorbed by the gas although 
the term q is retained in the formulation. 

No streamwise changes in edge elemental composition are allowed. 

The turbulent eddy diffusivities are forced to zero at the edge of the 
boundary layer. 

No gas phase kinetics are included. 

Surface roughness effects not modeled. 

Separation not modeled (adverse pressure gradients are allowed). 
Laminarization of turbulent flows not modeled. 
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SECTION 3 


INTEGRAL MATRIX SOLUTION PROCEDURE 

The solution of the boundary layer equations presented in Section 2 uses an 
integral matrix method which has been developed specifically for the solution of 
chemically reacting, honsimilar, coupled boundary layers. A complete presentation 
of the integral matrix procedure was included in Reference 1, where solution of la- 
minar flow problems was discussed. In the present effort, this technique has re- 
mained essentially unchanged, however, new variables and equations have been added 
to describe the turbulent aspects of the flow. The present discussion will there- 
fore review only the highlights of the method, and the reader may refer to Reference 
1 for more details. 

The governing equations presented in Section 2 are transformed from the phy- 
sical plane (s, y) to a new coordinate space (C> n). In the integral matrix pro- 
cedure, the primary dependent variables and their derivatives with respect to n are 
related by Taylor series expansions such that these dependent variables are repre- 
sented by connected quadratics or cubics (either option is available). That is, f ' , 
Hy, and Kj, are expanded in Taylor series form and the series are truncated to re- 
flect the proper polynomial representation. A nodal network is defined through the 
boundary layer and the Taylor series expansions are assumed valid between each set 
of nodes, with an additional requirement of continuous first and second derivatives 
(a spline fit) at each node. Primarily for convenience, the conservation equations 
are integrated across each "strip" (between nodal points) using a unity weighting 
function. The linear Taylor series expansions together with linear boundary condi- 
tions form a very sparse matrix which has to be inverted only once for a given prob- 
lem. The nonlinear boundary layer equations and nonlinear boundary conditions are 
then solved by driving the errors to zero using Newton-Raphson iteration. 

3.1 COORDINATE TRANSFORMATIONS 

The equations of motion for a boundary layer flow can be solved in the physi- 
cal (s, y) plane by numerous techniques, however, it is sometimes advantageous to 
transform the problem to another coordinate system. The transformed coordinates 
offer the advantages of nondimensionalizing the solution, confining the solution to 
a narrower region, minimizing changes in the dependent variables, and simplifying 
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boundary conditions and occasionally result in the deletion of streamwise derivative 
terms. This latter possibility occurs only under very restrictive sets of boundary 
conditions. The coordinate transformation in the present analysis is a variation 
of the Levy-Lees transformation and is derived in its entirety in Reference 1. The 
standard Levy-Lees transformation takes the form 


s 



Pl^^l^o 


2 < 


ds 



(3-1) 


The first alteration of this transformation is actually a mathematical convenience 
for carrying out the numerical solution. Introducing a stretching parameter in 
the normal coordinate, a new coordinate system is defined by 


C = ? 


(3-2) 


The parameter is taken as a function of C only and is determined implicitly dur- 
ing the solution. Its purpose is to stretch the n coordinate such that the boundary 
layer remains of constant thickness in the n coordinates. 


Since a new variable (0 is introduced, an additional relation is required. 
This is conveniently supplied by constraining some arbitrary point near the boundary- 
layer edge, rij,. to have a specified streamwise velocity, c, near (but something less 
than) the edge value; 




(3-3) 


where f is the transformed stream function defined as 


n 




(3-4) 
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and the prime denotes differentiation with respect to ti so that 


f = a, 


H u. 


(3-5) 


Examples of the utility of the stretching parameter are contained in Reference 1. 

The second change in the Levy-Lees transformation has to do with the trans- 
verse curvature effect. For very small nozzles, it is possible to have boundary 
layer thicknesses on the order of the nozzle radius r^. In this instance, it is 
necessary to treat r as, a function of y, thereby including its variation through the 
boundary layer. The coordinate transformations become 


f Wfo 


ds 




pr dy 


(3-6) 


Utilization of the above coordinate transformation relations results in a new 
set of governing equations in the (C, n) coordinate plane which will be given below. 
Primes will hereafter refer to derivatives with respect to n except when noted other- 
vnse. 

The global continuity equation is automatically satisfied by the definition 
of a transformed stream function f(C.n). shown in Equation (3-4), and re-defined 
here in the final coordinate system: 



where f is given by 
w 


f = . J_ f dK 


(3-7) 


(3-8) 


The governing equations will be presented below in transformed coordinates. The al- 
gebra of the transformation can be found in Reference 1. 
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Streamwise Momentum Equation (2-11) 
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(3-9) 


In this equation, utilizing the technique of Reference 28, the transverse curvature 
effect is included entirely in the coordinate transformation and in the definition 
of t: 



2a^«^ cos 0 
“l^o 



(3-10) 


where 0 is the angle between the surface normal and a plane normal to the body cen- 
terline (see Figure 2-1) and the subscript 1 refers to a reference condition which 
is normally taken as the edge condition at any streamwise station. 


c = -ey_ 


Pi^i 


3 In u 


^v “ ^ 3 In 5 


a = _ 2 _ dP 


(3-11) 


(3-12) 

(3-13) 


For solutions without consideration of transverse curvature, t is set to 1.0 through- 
out the boundary layer. 

Turbulent Model Equations 

The turbulent fluctuations are related to the mean field through the eddy mo- 
dels described in Section 2.5.. Eddy viscosity is described by a wall law and a wake 
law, while eddy diffusivity and conductivity are related to eddy viscosity by turbu- 
lent Schmidt and Prandtl numbers: 
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Defining 
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The wall region eddy viscosity relation becomes 


p(Re.) . 

C|^ = f" (wall region) 

Pi“H 


(^) region)* 


where 


00 



(3-15) 


(3-16) 


Transverse curvature is not considered in determining the wake region length scale 6*. 


★ 

The single layer model of Bushnell uses the wall expression throughout. The con- 
stant c is typically 0.0168 for the Cebeci mode and 0.018 for the Kendall model. 
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Energy Equation (2-26) 


♦ tt(-q; * qf)I' . 2 (f ^ - Hj (3->7) 

where q* is the normalized diffusive energy flux away from the surface including 
turbulent fluxes 


q* = %/cL* 


(3-18) 


The flux normalizing parameter a* is defined by 


6 


= 




(3-19) 


The diffusive energy flux q, in the transformed coordinates is defined later in this 

a 

section. 


"Elemental" Species Equations (2-25)* 


fK- . 
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where j* is the normalized diffusive flux of "element" k" 




(3-21) 


Diffusive Fluxes 


The normalized diffusive energy flux is given by 


There are K-1 such equations for the k "elements". Only K-1 of the "elements" are 
considered as unknowns since the K^h “element" is given by 


K-1 

h-'-T, 

k=l 
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(3-22) 


where Pr is the Prandtl number based on the frozen specific heat 


C„u 

Pr.-L 


(3-23) 


The turbulent contribution to the diffusive energy flux is contained, in the last 
bracketed term, which is left uncombined with the other terms for cl’arity. The fact 
that the gross simplifications of the turbulent model are included in the same equa- 
tion with the rather sophisticated unequal molecular diffusion model is merely a 
mathematical convenience stimulated by the requirement for calculations in all types 
of flow situations, including both laminar and turbulent flows. Unequal molecular 
diffusion and thermal diffusion effects may be important in the laminar sublayer re- 
gion of a turbulent boundary layer, however. 

The normalized molecular diffusive flux of species i is 

U- + (Z. - K.)u^] (3-24) 

where Sc is a system property defined by 

Sc = -t— (3-25) 

pDp^ 

The Sc is a Schmidt number based on the self-diffusion coefficient for a fictitious 
species representative of the system as a whole. The normalized molecular diffusive 

flux of the "elemental" species is I 

( 

i 

> 

I 

°H^ I 
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When certain groupings of parameters are constant so that the flow similarity 
assumption is valid, the terms on the right-hand side of the conservation equations 
(Equations (3-9), (3-17), and (3-20)) vanish, in which case the conservation equa- 
tions become ordinary differential equations. It should be emphasized that the equa- 
tions as presented herein are equivalent to the corresponding boundary- layer equations 
presented in Section 2.1. That is, no similarity assumptions have been made in their 
development. 


3.2 INTEGRAL STRIP EQUATIONS WITH SPLINED INTERPOLATION FUNCTIONS 

Consider the boundary layer in the region of a given streamwise station s as 
being divided into N-1 strips connecting N nodal points. These nodal points are de- 
signated by n.j where i = 1 at the wall and N at the edge of the boundary layer. Con- 
sider a function p(n) which with all its derivatives is continuous in the neighbor- 
hood of the point n = . Then, for any value of n in this neighborhood, p(n) may be 

expressed in a Taylor series expansion as 


pi6n + pv 


(Ml 


(Ml + D"" + 

6 Pi 24 • • • 


(3-27) 


where 


6n = n - n.j 

Conventional finite difference schemes, in effect, typically truncate the Taylor 
series after the first term and use the resulting expression to relate p' to p, etc., 
that is 

P - P,- 

p;--sr^ (3-28) 

Round-off error is then of order (6n)^ and many nodes must be chosen to bring this 
value down to acceptable limits. One can achieve a reduction in the number of nodes 
■for a given accuracy by employing a quadratic or cubic relation representing the 
function p over the interval of interest. This can be achieved by truncating the 
Taylor series after the third or fourth term. The cubic approximation will be used 
for the remainder of this discussion. The p. can be considered to represent any of 
f.j, f 1 . f^', f , Hj. , Rk . , Rk^, or Rk^. Since the highest derivatives of 
the dependent variables which appear in the boundary layer equations are f 1" , , 

and Kk^ , it is reasonable to truncate the series at the next highest derivative and 
to consider that derivative as being constant between n.j and that is. 
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O III 


- K 

6n 


Thus, rather than using finite difference approximations similar to Equation (3-28) 
which are substituted directly into the governing differential equations, a set of 
linear relations between the dependent variables and their derivatives is obtained 
and is solved simultaneously with the governing differential equations. These lin- 
ear relations are of the form 


'i+l 


^ fill j riH (^n) „ rt 

^i 8 ^i+1 24 " 

(3-30) 

! (Mil + pv = 0 

1 3 '"i+l 6 

(3-31) 

M + d" ^ = 0 
2 Pi+1 2 " 

(3-32) 

p^ represents f^, , and each 

of the K 


sets of . 

Notice that f has been taken to be a cubic over each strip, rather than the 
stream function, f, since it was desired to represent velocity (u = u,f'/a„) with 
the cubic. Equations (3-30) through (3-31) above, when written for each adjacent 
pair of nodes, give (3 + 2K) (N - 1) simultaneous algebraic equations for the N(4 + 
3K) + 1 unknowns, f . , f'. , fV, f 1" , oii., Hj. , Hf., Ht., Ki.., Kjl.. Rl). at each stream- 
wise station, where K is the number of elemental species.* The Taylor series equa- 
tions are written for only K-1 species since the overall mass balance equation sup- 
plies the remaining elemental concentration. Additional relations must come from 
the governing differential equations and the boundary conditions. It is important 
to note that the f, f, etc., are treated as individual variables related by alge- 
braic equations. It is also important to note that the coefficients in Equations 



* 


The mixing length is not included in this variables count since mixing length (as 
well as in the wake region) is treated as a state property. 
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(3-30) through (3-32) are functions of 6n only; therefore, this portion of the 
resulting matrix need be inverted only once for a given problem. 

The conservation Equations (3-9), (3-17), and (3-20) contain streamwise der- 
ivative of "nonsimilar" terms (d/d In C). In the present solution technique, two 
or three point finite difference formulas are considered sufficient to express 
these derivatives, since gradients in this direction are not severe. The following 
relations are used: 


’dl 

1 ) .1 

.d< 

!ln dj 


£ ^0^ \ *^1^ ^£-1 \-2 


(3-33) 


where ( )^ ^ refers to the previous streamwise station. 


^*0 " ’ ‘^l " ■ . d, = 0 


£“£-1 


A * 2 

£ £-1 


(3-34) 


for two-point difference and 


.4 _ o A-1 £V.2 j 

£ViA-2 ’ 1 


- 2 


£^£-2 


£^£-1 £- 1^2 


*‘^2 = 2 . 


£\-l 


£ £-2 £-l“£-2 


(3-35) 


for three-point difference where typically 

£\-l ^£ ■ ^£ ^ ^^£^^^£-1^ (3-36) 

The three-point difference relation is generally used unless a similar solution is 
desired (in which case d^ = d^ ~ ^2 ~ unless the point in question is the 

first point after either (1) a similar solution or (2) a discontinuity (e.g., where 
the body changes shape abruptly, or where mass injection is suddenly terminated). 

The next step in the treatment of the conservation equations is their inte- 
gration across the boundary layer "strips". The primary reason for this integra- 
tion is to simplify the n-derivative terms in the energy and species conservation 
equations, since it is not convenient to express the complex q* and j* terms in der- 
ivative form. The solution can actually proceed very nicely without integrating 
across strips (see Reference 29) without any noticeable change in speed, accuracy, 
or stability for simplified problems such as incompressible, nonreacting flows. The 
weighting function for integration between nodes in this integral method is unity. 
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In the terminology of the general method of integral relations, where integrals 
are carried from 0 to «> in n (Reference 30), a square wave weighting function is 
used which is unity across the strip in question and zero elsewhere. The equations 
are then integrated N-1 times with the square wave applied to each strip in succes- 
sion. Using the momentum equation as an example, the integration from i-1 to i re- 
sults in 
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(3-37) 


where Equation (3-33) has also been introduced into Equation (3-9). The Taylor 
series approximations introduced earlier can also be used to express the integral 
terms above. As demonstrated in Reference 1, the term f'p dn becomes 


where 


1 

r f'p dd = f- XP^ + fV XP 2 + f"'XPj + fr^ XP^ (3-38) 
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(3-39) 



= (6n)^ 
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This technique Is used to rewrite each of the integral terms in Equation (3-37) that 
/•i 

have the form /j -j f'p dn. The remaining integral term in the momentum equation, 
yj’l (p-|/p) dn is evaluated by approximating the function as a cubic over the strip 
and integrating directly. This yields 





P]Pi-l\ 


(3-40) 


The production term* in the species equation is assumed to vary linearly across the 
strip so that the integral of is 



(3-41) 


These approximations are not quite as good as the approximations for f, Hy and 
since continuity of derivatives is. not guaranteed at the nodal point. 

Direct substitution of these approximations for integral terms into the gov- 
erning equations results in the following forms. 
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^Recall that for equilibrium chemistry this term is identically zero. 
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Energy 
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The following definitions are necessary: 


ZP 


1 ' «" ("1 


YP + YP (^h)^ ^ Yp (‘Sri) ^ V 
^^2 2 ’*^3 8 ^*^4 24 / 


2P = - (6n)^ f - VP ^ + VP - + YP i§IliL\ 

^f'2 ^2 ’^2 3 3 120 4 30 I 

ZP = (6ri)^ f — ^ - YP 11^ + YP — + YP 

^ 8 ’ 2 120 3 420 4 504 j 


(3-45) 


YP ^ + YP iiinil + YP 
' y 24 ’^2 30 3 504 4 252 


3-13 



with 




^^2 " ‘'iPi-l.i * Vi-2, i 


^^3 ‘^iPfc-l.i ^2P)i-2,i 


(3-46) 


YP4 ^iPj[-l,i-l ^ ^2Pii-2,i-l 


and is defined adjacent to the brackets in each term that uses these definitions. 

The conservation equations provide (K+1) (N-1) more equations for the N(3K + 
4) + 1 unknowns. The remaining equations needed to close the problem (number of 
equations = number of unknowns) come from the boundary conditions. Equations (2-81) 
and (2-82) and one of Equations (2-84), (2-85), or (2-89). These equations provide 
4+3K relations. 

3.3 SOLUTION OF THE MIXING LENGTH EQUATION 

The turbulent mixing length is treated in the same way as the thermodynamic 
and transport properties, i.e., from an assumed boundary layer solution the mixing 
length is calculated at each node and used in the next iteration. This is a simple 
matter for the Cebeci and Bushnell models since the mixing length expression in both 
is an algebraic formula. However, in the Kendall model a differential equation must 
be solved. Accordingly, some discussion of this procedure follows. 

The transformed differential equation for the Kendall model mixing length 
is given by 
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where t/p is given by 
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and the definitions of Equations (3-14) have been used. Defining P(n) by: 
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The solution to this equation is 
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The remaining probem is to evaluate the integral terms. Defining 



( 3 - 50 ) 


( 3 - 51 ) 


( 3 - 52 ) 


yields 


£ = ka^ (n - L) 


( 3 - 53 ) 


Reference 2 presents a complete description of the technique used to evaluate L(n). 
In essence, P(n) is assumed to vary linearly over the interval n.j_i to n-, and the 
integrals are expressed in a more tractable form. The final expression is 



( 3 - 54 ) 
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where 


(3-55) 


(3-56) 
(3-57) 

(3-58) 

The Dawson Integral, D^( ), can be evaluated from tables (Reference 31) or by a ser- 
ies method. A series evaluation method is used in the present analysis. Thus, com- 
bining Equations (3-53) and (3-54), an explicit recursion formula for mixing length 
at each node is obtained. This mixing length is a function of local shear, viscosity, 
and density through the variation of P( ), and is re-evaluated at each node on each 
iteration during the course of a solution. 

3.4 NEWTON-RAPHSON ITERATION FOR A SOLUTION 

A complete description of the Newton-Raphson iteration procedure as applied to 
the laminar equations of motion was given in Reference 1. Since the procedure is ba- 
sically unchanged with the addition of turbulent transport it will be reviewed only 
briefly here, with emphasis on the recent additions. 

To illustrate the Newton-Raphson method, consider two simultaneous nonlinear 
algegraic equations in two variables, x and y. 

F(x,y) =0 G(x,y) =0 (3-59) 

the solution for which is given by x = 7, y = y. Define x^^ -yni values of 

X and y for the m^^ iteration. The desired solution F(x,y) can be expressed in a 
Taylor series expansion: 
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3G(x„,y„) 


m "m 


m' 3y 


(3-60) 


The Newton-Raphson method consists of replacing (x,y) by on the right- 

hand side of these expressions and neglecting terms of higher order than those shown 
in Equation (3-60). This yields the set of simultaneous equations 


3F(x„.y„) 3F(x„.y„) 


Ax_ .... + Ay 


m 3x 


m 3y 




9G(x ,y ) ,y ) 

^’^m 37-^ ^ 37-=^ = - 


or in matrix form 





Ax 

m 



3x 

3y 



3G(x ,y ) 
m m 



Ay 

■'m 



3x 

3y 




where 

^^m - Vr "m % ^ Vr J^m 


(3.61) 


(3-61a) 


The Ax and Ay are the corrections to be added to x and y 
m ^m tu m m 


respectively, to yield 


th ^ 

" iteration. Here F(x ,y ) and 

m m 


the values of the dependent variables for the m+1 

G(Xm,ym) are values of the original functions F(x,y) and G(x,y) evaluated for x = X|^ 

and y = y„. As the corrections approach zero, the F(x ,y ) and G(x ,y ) approach 
m ' m •'m' ' m -^m 
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zero. Hence, it is appropriate to look upon the F(X|^,y^) and G(x^,y^) as errors as- 
sociated with the original equation (Equation (3-59)). It is apparent that this 
procedure can be extended to an arbitrary number of functions and a corresponding 
number of primary variables. 

In the following discussion the matrix of partial derivatives is referred to 
as the matrix of correction coefficients. The number of equations and unknowns is 
greatly increased; however, the basic procedure is the same. In matrix notation 

A • (x , - x_) = A • (Ax_) = - F(x_) (3-62) 

where A is the matrix of partial derivatives, x is a column vector containing all 
the primary variables (f^. , etc.) and F is the set of governing equations. The pro- 
cedure to arrive at a solution F(x) = 0 is as follows: 

• Start with the m " guess for a solution, x^ 

• Compute - F(x^) and compare to 0 (the zero vector) if close enough, ac- 
cept X as the solution 

m 

• Compute A corresponding to x^ 

• . Invert A and calculate from 

7_.i = (Ax_) + X = - A‘* F(>T ) + x_ (3-63) 

m+1 'mm 'mm 

The mechanics of how this is done are described in Section 3.6. 

3.5 THE MATRIX OF CORRECTION COEFFICIENTS 

For the purpose of the present analysis, it has been found most convenient 
to consider the primary variables as f ^ , fl, fV, f I" , Hj^ , Hj^. Hj^ , , K|^^. , , 

and CLu. This amounts to N(3K + 4) + 1 unknowns where N is the number of nodes and 
K is the number of elemental species to be considered in the boundary layer. Re- 


counting the number of equations. 

we have 



Equation Number 

No. of Equations 

Taylor series expansions 

(3-30) - (3-32) 

(3 + 2K) (N - 1) 

Boundary layer equations 

(3-42) - (3-44) 

(N - 1) (K + 1) 

Boundary conditions 

(2-77), (2-78), (2-80) 
or equivalent 

3K + 4 

definition 

Total 

(3-3) 

1 

N(3K +4) +1 
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Other secondary variables such as e, p, T, etc., are expressed in terms of those 
listed above. The corrections in these secondary variables are therefore found in 
terms of the corrections to the primary variables. 

The use of the Newton-Raphson technique for the current set of equations 
requires the evaluation of the partial derivatives of each equation with respect to 
each variable. The Taylor series expansions are linear with respect to the primary 
variables as are several of the boundary conditions. The boundary layer equations 
and the remainder of the boundary conditions are nonlinear. The constraint is 

n 

linear but it must be considered together with the nonlinear equations in order to 
avoid a singular' matrix. The recurrence formulas representing the linear equations 
will be presented first, after which recurrence formulas appropriate to the nonlinear 
equations will be developed. 

Partial differentiation of the Taylor series expansions with respect to the 
primary dependent variables in accordance with Equations (3-61) yields for the m^^ 
iteration 


+ 0)Af^ + (6n)Af! + (^).AfV + (^) Afl” + Af!’j^ = - ERROR 

(3-64) 

(-l)Ap^+^ + (l)Ap. + (6n)Apl + ApV + ApV^^ = - ERROR (3-65) 

(-1)Ap:+l + (l)Ap: + ApV + (f) Aplj'^^ = - ERROR (3-66) 

where as before p. represents fl, Hr., and Kt... Here Af..,, Af., Afl, and so on re- 
present the respective corrections for « and so on, the numbers in paren- 

theses represent the partial derivatives of the Taylor series expressions (Equations 
(3-30) through (3-32)) with respect to the primary variables; and the ERRORS are ob- 
tained by evaluating the left-hand sides of the appropriate Equations (3-30) through 
(3-32) for the values of the variables obtained during the m^^ iteration. 

Similarly, the recurrence formulas for the linear boundary conditions (Equa- 
tions (2-77), (2-78), (2-80), etc.) are: 

Af; = - ERROR = - (f;)^ (3-67) 

AHp = - ERROR = - [H, ‘ ] (3-68) 

edge edge edge actual 
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AIU ■= - ERROR = - (H: )„ 

edge edge 


AK. = - ERROR = - [K|. - \ 

^edge ^edge ^edge 

AK^ = - ERROR = - (I )„ 
■'edge ^edge 


actual 




(3-69) 

(3-70) 

(3-71) 


The recurrence formulas for the nonlinear boundary- layer equations are given by: 


Momentum 


t(C + IJf" 


/Af"\ AC , ^^M H . At\ ^ r/n . j ^ r . j ^ 

(-p- ^ T ^ T“ - ^ ^ t) ^ t(l + d^)f + d^f^_^ + d2fj^_2]Af 

H V C|^ H / 


+ f(l + djj)Af 


’ 8 a* ^ )/l + ^ Ad 

i-i *o“« ^ ^ |r 


^ ‘Pi * — 

6 \Pi.i 



1 - 


3 P 


i-l) ^ 




1 + 

P,-., 6 \p^ p..^ p..^; 


Aa,, 


1 + g + d - 

V 0 


, “h J 


[f ; 4XP, 


+ fV SXP, * fV'iXP ♦ IXP * XP,Pfi * XPjAf" 


. XPjAfP' t XP,AfV:,] . 


1 1 


“h / 


[f; xp, 


♦ f; XPj t fJ-XPj t fPl, XP,] f, 4a„ - 2 [2P,Af; * ZP^AfV 


1 1 


+ ZP Af" + 7P Af" 1 = 


ERROR 


(3-72) 
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where the ERROR is given by the left-hand side of Equation (3-42) evaluated for m 
iteration. 


th 


Energy 


[t(-Aq* + Aq*) + (-q* + q*)At + ({1 + d^) f + d^fjj^ + ^ 2 ^ 9.-2^ 


+ (1 + dp)Af] ^ - (1 + lf\ AXP^ + fV 


AXP. 


+ fl"AXp3 + f”‘^ AXP^ + XP^Afl + XP2AfV + XP3Af|" 






+ ZP.AH" ] ^^. = - ERROR 

^ i-1 i 


(3-73) 


where the ERROR is given by the left-hand side of Equation (3-43) for the itera- 
tion and Aq* is given by 

0 


^ ^ \c f f o^Pr Vc 


+ + 


AT' APA . ^mS^' ^ ^ ^”h \ 

r'c^'Pr) aj^Pr^ \ ^ T' ' aj^ 


M ^p 


otj^Sc L 


- (S " ;^) + (B - h t 


C 


AScl p ..X %■] _C— 

-ITj Vs' f ’Lj„ ■ “hJ «„sf 


Ae„ Aoj^- 

M 


Ah' 


Continued 
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(3-74) 


l^n ^ n .7 ) - T*AC t - A(u 

VP ^1^2/ P (pp)^ 


^ c^RT„- (f 


+ -^J + (h - h + c^.RTp,)Ap; + u‘ /Ah - Ah + c 


t ^4 *^4 


J (sB - ah t CjRT,3 


Al 




H t 


"Elemental" Species 


/AK), Aa„ Ae„ .. \ 

-‘'^k - jk« * S^(-^ - * Y * f) Mo • h„)f + 


♦ 4K^ + K^o ♦ 


’ ♦ — i“HT 

i-1 a*^ ‘ ^ 2 


Al-J^ .aK 


i-1 




Aa^^l - (1 + 2dp) [f; AXP^ + f‘ AXP^ + f;"AXp3 


+ fr^ AXP^ + XP^Af . + XP2Af!| + Xp3AfV' + XP4Af;’’^]p 


i ^k. 


[ZP^Af- + ZP^AfV + ZP3Afl” . ZP^Af;-:^]p^^~,^ - [ZP^AK^^ 


1 k. 


+ ZP^AK* _ . ZP3AK- . ZP,AK^__^lp^3,^. 


= - ERROR 


(3-75) 


where the ERROR is given by the left-hand side of Equation (3-44) evaluated for the 
iteration and Aj* is given by 


AjJ = 


k ^ 

aRSc 


(?k * Ok - V-i) (t - ^ - ^) 


k az’ . (z, - S^)4„j . „;(a\ - 


(3-76) 
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Equations (3-72), (3-73), and (3-75) are reduced to linear equations in terms 
of the corrections on the primary variables (Af. , Afi, and so on) by noting that the 
variables C, p, Cp, T, Pr, Sc, h, Cp, u^U 2 ’ ^ 3 * >^ 4 ’ ‘*’k evaluated at 

any point in the boundary layer can be considered as functions of static enthalpy, 
static pressure, and elemental composition. With the pressure assumed constant 
across the boundary layer, it follows that all of the corrections on unprimed vari- 
ables with the exception of Aq^ can be expressed as 



where from Equations (2-14) and (3-5) 


so that 



f'.^ 

1 



Ah^ = AH.J. 


1 2 
i 



(3-77) 


(3-78) 


(3-79) 


The Aqp.j is more complicated in that it depends upon the AKkj and Ah^ at all nodal 
points j. 

The n-derivatives of these variables (i.e., the- primed quantities) can like- 
wise be expressed in terms of corrections on the primary variables as follows 


3^( ). 




8 ^( ),- 


AK. . + ^ Ah. 

k ^''kk. ' '^k. ) 


+ h 


i V ■ ^ 'vU 'M/ 


3 ^( ), . 3 ^( ), 


AK,. 


Ah. 


k i 


1 


(3-80) 
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where 


= 4 . - 


u|f;fv 


(3-81) 


so that 


u^f'fV /Af. 

Ahi = ah; - -^ + ^ 


Af'.' Attu 


(3-82) 


Use is also made of the following definitions which are obtained by differ- 
entiating Equations (3-39): 


AXP^ = 6n (ap. - f Ap; + ^ ApV + ^ ApV.,) 

SXP 3 . 5„. 4p; * ll|ai sp; , ^ ,p;_3) 


(3-83) 


AXP^ = 6n" ( 24 - §0 '^Pi ^252 ^^i ^ 252 '^^i-l) 


The AZP.| = AZP 2 = AZPj = AZP^ = 0 since ZP.j , ZP^, ZP^, and ZP^ can be computed be- 
fore the iteration commences. 

In order to complete the set of equations, it is necessary to develop the re- 
currence formulas for the constraint and for the nonlinear boundary conditions. 
The constraint (Equation (3-3)) yields 

Af - cAf = - ERROR = - (f - cf ) (3-84) 

\ ne -^c ^e 

Once the correction coefficients (partial derivatives with respect to each 
primary variable) for each equation at each nodal point are found, they are arranged 
in matrix form for further manipulation. The order of the primary variables and the 
order of the equations is of some importance in the matrix formulation. It is most 
convenient to divide the variables into "linear" (Symbol L) and "nonlinear" (Symbol 
NL) sets, namely: 
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(3-85) 


AL 1 BL 

I 

LANL '• BNLJ 



"avL ' 


1 

1 — 


.AVNL. 

1 

1 

.ENL. 


where the linear equations are the Taylor series equations and some of the boundary 
conditions. The purpose of the partitioning is to allow operations on sections of 
the coefficient matrix which result in significant simplification of the overall in- 
version. In particular, since the coefficients of the linear equations are all con- 
stant or functions of the fixed nodal spacing, this portion of the matrix (the AL 
portion) can be diagonalized once and for all in any given problem. In essence, 
the corrections on the linear variables AVL are always expressed in terms of the 
nonlinear variable corrections AVNL. The choice of linear and nonlinear labels for 
the variables is somewhat arbitrary, but care must be taken that the AL matrix not be 
singular. It has been found convenient to arrange the variables into the linear and 
nonlinear groups as follows: AVLp(Af2> Af^,..., Af^, Af^, Afl^,... AfJ^, Af|' , Af 2" , . . . 

Af'"); AVL^ (AHj^, AHI2, AHj3 ,... AHj^, AHj^, AHj^,... AHf^); and K-1 sets of AVL^ 
(AKk^, AKj^2> AKj.^,... AK|^^, AK|^^, AK[^2 >--- • The nonlinear variables are then 

arranged in the following order: AVNLp (Aa^^, Af^, Af^, Af^ , Af^ AVNL^ 

AHj 2 .... ^Ht„_i); and K-1 sets of AVNLj^ (AK^^^, AKk^, AKk^.--- ^^kn-i^- 
The order of the linear equations (Lp) in the present matrix procedure is: 

No. of Equations Description of Equations 

3N-2 Linear boundary conditions and Taylor 

series for f, f , f", f" 


2N Linear boundary conditions and Taylor 

series for Hy, Hy, Hy 

(K-1) (2N) Linear boundary conditions and Taylor 

series for Kk, Kj|., Kk 


The nonlinear equation (NL 


are sequenced as follows: 


No. of Equations 


Description of Equations 


4 


Nonlinear boundary conditions and 01^1 
constraint 


N - 1 


Momentum equation for each pair of 
nodes 


N 

(K - 1) (N) 


Energy equation for each pair of nodes 
plus wall enthalpy equation 

K-1 sets of "elemental" species equa- 
tions for each pair of nodes plus 
wall species equation 
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Special logic has been written for the matrix inversion, taking advantage of 
the regular sparseness of the matrix. Once the corrections for the linear and non- 
linear variables are found, these corrections are added to the variables to form the 
new gue.'ises. The magnitude of the error§ for each equation are checked and the 
cedure advances to the next iteration if the absolute values of the errors exceed 
prescribed upper limits. If the errors are acceptable, iteration is completed for 
the current streamwise position g. Typically, three to six iterations are required 
to reach a satisfactory solution. 

3.6 THE MATRIX REDUCTION PROCEDURE 

Substantial savings in computation time and storage allocations can be real- 
ized if full advantage is taken of the ordered sparseness of the matrix of correction 
coefficients [A]. This is extremely important since the solution of a boundary layer 
with several elemental species would otherwise be very costly. For this reason the 
matrix solution procedure will be discussed in some detail. 

In Section 3.5 the division of the variables and the equations in a linear 
and nonlinear group and the general form of the matrix were discussed. Figure 3-1 
gives a more detailed representation of the matrix and clearly shows its regular 
sparseness. Here, for example, [ANU ■] and [BNL ] are matrices representing the 
coefficients of the corrections [AVL^J and [AVNl^], respectively, arising from the 
nonlinear set of equations NLp with the corresponding errors given by the single 
column matrix [ENLp], where p, q can be any of F, G, or K^. 

The first step in the matrix solution procedure is to invert the submatrices 
[ALpp] and to form the matrix products [ALpp]"* [BLpp] and [ALpp]"' [ELp] for p = F, 

H and K. The former products have to be done only for p = F and H since the linear 
equations relating the k^*^ elemental species to its derivatives (Lj^) have the same 
form as the linear equations relating total enthalpy and its derivatives (L^). Fur- 
thermore, this has to be done only at the beginning of the problem and after each 
refit as the matrices [ALpp] and [^Lpp] depend only upon the boundary layer n-spacing. 

The linear corrections [AVLp] can then be expressed in terms of the nonlinear 
corrections [AVNLp] and the linear errors [ELp] as follows: 

[MLp], ■ - [ALpp]-, [BLpplj^j [AVNLplj + [AL^p]-, [-ELp], (3-86) 

where I = 3N - 2 and J = N + 3 for p = F, and I = 2N and J = N for p = H or K with 
N the number of nodal points in the boundary layer. These can then be introduced 
into the nonlinear equations to yield the reduced problem: 

[BNL]j^j [AVNL]j = [ENL]j (3-87) 
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Figure 3-1. Schematic of matrix equation relating the Mewton-Raphson corrections on the primary variables 
to the errors for the m^h iteration. 












































































where I = (K+l){N-l) + 3 and J = (K + 1) N + 3. The matrices BNL and ENL are 
formed from BNL and ENL in the following way: 

^pq = - ^^'-pq ^''qq^ 


ENL^ = ENL„ - ANL„„ (AL'* EL ) 

P P pq ' qq q' 

q 


(3-89) 


This procedure significantly reduces the amount of information which must be 
stored. In fact, the only major blocks of coefficients which must be stored for 
representing all of the linear and nonlinear equations are CAL"*] CBL^^] which is 
3N - 2 by N + 3 for q = F and 2N by N for q = Hj or K, and BNL which is [(K + 1) 

(N - 1) + 3] by [(K +1) N + 3] where N is the number of nodes and K is the number 
of species. This is contrasted with the size of the complete matrix of coefficients 
which is 3KN + 4N + 1 square. (For a 2-element, 12-node problem this represents a 
savings of about 12,000 storage spaces, and for the largest possible problem, 7 ele- 
ments and 15 nodes this is a savings of about 123,000 locations.) 

The matrix Equation (3-87) is substantially reduced further as follows. First, 
the columns are rearranged so that the nonlinear corrections can be divided into two 
sets: AVNLg (Aa^|, Af^, Af^,... Af|!j, AHj^, AHj 2 >... AH-|-^_.| , AK|(^, AK|^ 2 >-'- AK|^^_.|) 

and AVNLjj ^^^w AK^^). Equation (3-87) can then be expressed as 

[bSl^ i 5 nl,] 


AVNL. 


AVNL,. 


= [enl], 


(3-90) 


where [BNL ] is a square matrix, being the coefficients of the I corrections [AVNL ], 
with I = (K + 1) (N - 1) + 3 and J = (K + 1) N + 3. Utilizing the same matrix re- 
duction procedure employed previously (in going from Equation (3-85) to Equation 
(3-87), the [AVNL^] can be expressed in terms of the reduced set of corrections 
[AVNLjj] as 


[iVNL^], . - [BNL^]-;, [6VNLj,]j + [BNL,]-, [ENL], (3-91) 

where I = (K+l)(N-l) + 3 and J = K + 1. 

The reduced set of nonlinear corrections [AVNLj^] (Af^, AHj^ and the AK)^^) are 
obtained from a consideration of the nonlinear wall boundary conditions, Once these 
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are determined, the remaining nonlinear corrections [AVNL,] are obtained directly by 

d 

use of Equation (3-91). The linear corrections [AVNl^] are then calculated using 
Equation (3-06). These linear and nonlinear corrections are then added to the cor- 
responding primary variables in accordance with Equation (3-63), thus completing the 
m^*’ iteration. The magnitude of the errors are checked and the procedure advances 
into the m+1^*^ iteration if the absolute errors exceed prescribed upper limits. If 
not, the iteration is completed for the current value of the streamwise position 
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SECTION 4 


PROGRAM DESCRIPTION AND LISTING 


This section contains a discussion of machine requirements and the overlay 
structure useful for reducing core storage. A flow chart and verbal description of 
the solution process are presented with a verbal description of the function of each 
subroutine. A complete listing of the program and the Fortran variables are also 
given. This information and that presented in Sections 2 and 3 should enable the 
interested and persistent user to better understand the solution procedure and logic. 


4.1 MACHINE REQUIREMENTS 

The BLIMP program has been used on Uni vac 1108, CDC 6600, CDC 7600, and vari- 
ous IBM machines. The current version, BLIMP-J, has been extensively used only on 
the Univac 1108; however, only minor adjustments should be required for useage on 
other machines. (For IBM equipment it is desirable to double precision certain 
variables.) The amount of storage required depends, of course, on the size of the 
words for each machine and the efficiency of the compiler. Typical numbers are 
given below in decimal words (octal words). 


Univac 1108 CDC 7600 

EXEC 8 FTN Version 2 


Program size, without overlay 71,398 61,440 

(213 346) (170 000) 

Program size, with overlay . 56,557 53,248 

(156 355) (150 000) 


A recommended overlay structure is shown in Figure 4-1. On CDC equipment it is best 
to use the minimum overlay structure compatible with storage requirements. On all 
machines the core should be set to zero before execution. 

The following unit assignments are built into the program: 

READ - KIN- 5 
WRITE - KOUT-6 
PUNCH - KPCH-7 
PLOT - KPLT-18 
SCRATCH - NBT-19 
SCRATCH - NBT2-20 
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Figure 4-1, Overlay structure for BLIMP-J. 
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These assignments can be changed by changing the appropriate unit variable (ex. KOUT) 
in B02A. 

4.2 DESCRIPTION OF SUBROUTINES 

The BLIMP-J subroutines are identified by two labels. The first label is 
the element name and the second label is the subroutine name, e.g., B03A (element 
name), SETUP (subroutine name). In the following description the subroutines are 
ordered according to their element name. Figure 4-2 gives a flow chart which shows 
the general solution procedure and the interconnection of the major subroutines. 

There are several dummy subroutines included in the program. Some of these 
are for obtaining information from the computer system, e.g., date, time of day, 
etc. The specific routines are B30B, B30D, B30E, B30F, B30E. They are described 
on the following pages. If there are system subroutines of the same name and func- 
tion they may be removed from the program. Alternately, they may be used to call 
the appropriate system routine. 

BOIA DUMCOM 

A collection of all labeled commons sometimes useful when performing debug 
operations. (Serves as main program for CDC machines. Calls BLIMP (B02A).) 

B02A BLIMP 

Master calling program. For the Univac system, this program calls SETUP, 
HERAT, OUTPUT, ROCOUT. (For CDC this is a subroutine called by DUMCOM.) 

B03A SETUP 

Control program for setting up boundary layer edge conditions and streamwise 
derivatives for a new station or a new case. Called by BLIMP. Calls FIRSTG, LINMAT, 
RECASE, TRMBL, STATEN, REFCON, TRANCR, HISTXI, INPUT, TOD, ETIMEF, DATE. 

B04A HERAT 

Control program for performing boundary layer iteration and testing maximum 
errors for convergence. Called by BLIMP. Calls NNNCER, ETIMEF, NONCER, TLEFT. 

B05A NNNCER (entry point NONCER) 

Control program for performing that portion of a boundary layer iteration 
having to do with solution of the nonlinear (conservation) equations. With the aid 
of its subroutines, it evaluates errors and coefficients of the corrections of the 
nonlinear equations, reduces this matrix to the nonlinear set, evaluates maximum 
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Output Corrected 
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Figure 4-2. Flow chart for BLIMP-J .solution, procedure. 
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errors of conservation equations, evaluates corrections, computes damping factor and 
applies to corrections, and corrects primary variables. Called by HERAT. Calls 
IMONE, EQUIL, ICOEFF, lONLY, RERAY, ABMAX, RNLCER, STATE, OGLE, LINCER, TRMBL, TRANCR, 
LIAD, ETIMEF. 

B05A RNLCER 

Further reduces nonlinear equations to reduced nonlinear set of wall variables. 
Introduces wall boundary conditions and solves for new values of this set. Called by 
NNNCER. Calls RERAY, EQUIL. 

B06A LINCER 

Evaluates errors for linear equations (i.e., Taylor series expansions and lin- 
ear boundary conditions) and with the aid of its subroutines, determines maximum er- 
rors of linear equations and corrects errors for these linear equations for the ma- 
trix reduction v/hich is performed on the linear equations (see discussion under 
subroutine MATSl). Called by NNNCER. Calls ABMAX, MATSl , MATS2. 

B07A REFCON 

Calculates boundary layer edge conditions and sets up wall boundary conditions 
for uncoupled problems. Called by SETUP. Calls STATE, EQUIL, SLOPQ, SLOPL. 

B07B MISCIN 

Sets up default values for certain variables and reads namelist $MISLIS. 

Called by RECASE. 

B08B ICOEFF 

Calculates groupings which contribute to the error equations and influence 
coefficients for the nonlinear (conservation) equations. Called by NNNCER. 

B09A RECASE 

Reads in most of boundary layer input data. Called by SETUP. Calls TOD, 

DATE, GEOM. 

B09B GEOM (S,.R, P, KIN, NBT, NBT2, NS, PTET, NTH, GE, IP, lU) 

Reads namelist $INPUT and computes the wall length and the gradients of pres- 
sure and velocity when necessary. Selects from the input data those stations used 
for boundary layer solution stations. Called by RECASE. 
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s 


-wall Igfigtli 

— nozzle radius 


R 

P - pressure 

KIN,NBT,NBT2 — unit assignments 

NS — number of BLIMP solution stations 

PTET — axial coordinates of BLIMP solution stations 

NTH - throat station number 

GE - cos (p (wall angle) 

IP -- flag for input of edge pressure and edge pressure gradient 

lU — flag for input of edge velocity and edge velocity gradient 


NP^ 


s. (wall length) = s. + ^ [(r^ - + (xj - 

j=2 


for IP = 1 


for lU = 1 


( r . - r . , 
7 ^ 


j = NP, 



1 

^j+1 ’ ' ^j-1 

dx 

i " 2 

j'j+l ■ ’'j ■ ''j-l_ 


j = NP. 


5 

dx 


dP 

same as 


with P replaced by U 


where i - BLIMP solution station 

j — index on input x, r, P, etc. 

NP. - value of j for the i^h BLIMP solution station 


BlOA HISTXI 

Computes terms involving derivatives with respect to XI (i.e., nonsimilan 
terms) and stores those upstream quantities needed for these difference relations 
Called by SETUP. Calls TAYLOR. 
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BllA OUTPUT 


Prints standard boundary layer output block for converged solution or, if re- 
quired, at the end of each iteration. Called by BLIMP. Calls REFIT. 

BllB ROCOUT 

Available as an option (KR{8) = 1,2,3), this subroutine calculates a corrected 
body contour which can be output onto punched cards for use as input to TDK. 

The KR(8) = 1 option calculates and punches the inviscid flow contour which, 
should be used for TDK input for a specified, and different, nozzle contour (which 
has been input to BLIMP-J). The inviscid contour is calculated from 

Rl = Rb - fig cos 4) 

Xi = Xb + 6g sin (J> 

where R, is the inviscid contour radius, R„ is the nozzle radius (input), 6* is the 

1 D D 

body displacement thickness, and 4) is the v<all angle. 

The KR(8) = 2 option calculates and punches the desired body contour if the 
input contour is the inviscid flow field contour. The body contour is calculated 
from 


Rb = Rj + cos 4> 

Xg = Xj - 6* sin 4> 

where the terms are the same as above except that Rj is the input contour to BLIMP. 

In both cases the contour is normalized to the throat radius (the minimum ra- 
dius) and the axial coordinate is zero at the throat. Also, the contour is punched 
in a form suitable for TDK input. 

B12B IMO'NE 

Evaluates the coefficients of the 
(conservation) equations, where I is the 
Called by NNNCER. Calls TAYLOR, LIAD. 

B13B lONLY 

Evaluates the coefficients of the corrections for the nonlinear (con- 
servation) equations, where I is the I^^ nodal point in the boundary layer. Called 
by NNNCER. Calls LIAD. 


(I-l) " corrections for the I nonlinear 
P nodal point in the boundary layer. 
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B14A STATE 

Evaluates the chemical state and properties of a homogeneous gas mixture. 
Called by NNNCER, REFCON. Calls HHOMO, CHOMO, SHOMO. 

B14B STATEN 

Reads in basic property data for homogeneous boundary-layer option. Called 
by SETUP. 

B14C HHOMO(T) 

Calculates enthalpy of homogeneous gas at temperature T, degrees R. Called 
by STATE. 

B14D CHOMO(T) 

Calculates specific heat of h.omogeneous gas at temperature T, degrees R. 
Called, by STATE. 

B14E SHOMO(T) 

Calculates entropy of homogeneous gas at temperature T, degrees R. Called by 

STATE. 

B15B RERAY (N,.C, NQ, D, NQN, NNN, LS, IS, ND, SD, L, S, LL, ILL) 

Replaces rectangular matrix (C) with N rows and N.+NQ columns by the product 
of the inverse of an N by N submatrix and the remaining columns of C. The inverse 
is also permitted to act on additional columns (matrix (D) with ND rows and NQN. 
columns) from another portion of memory. Also, routine rearranges columns accord- 
ing to arbitrary specifications given by LS. 


N NQ 

1 


NQN 

\ 

C 1, 

i 


D 

1 


_ _ 


Called by EQUIL, NNNCER, RNLCER. 

N = number of rows in rectangular matrix (see sketch) 

C = elements of rectangular matrix (see sketch) 

NQ = number of columns in matrix C in excess of those contributing to square 
matrix (see sketch) 
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D = elements of matrix of additional columns {see sketch) 

NQN = number of additional columns (see sketch) 

LS = sequence to which columns of C are rearranged (LS(1) = 0 signifies no 
rearrangement) 

IS = flag, yields debug output if RERAY entered with IS = -2, signifies singu- 
lar matrix if RERAY yields IS less than zero 

ND = dimension on rows of C from calling program 

SD-LLL used to bring in dummy storage space 

B16A SLOPQ (N, X, Y, S, Z) 

Based on a sequence of quadratic (3-point) fits of a set of points, calculates 
average slope at each point and integrates the equation thus defined between each 
pair of points. Called by REFCON. 

N = number of points to be considered 

X = abscissa at each point 

Y = ordinate at each point 

S = derivative at each point 

Z = integral up to each point 

B16B SLOPE (N, X, Y, S, Z) 

This routine performs the same function as B16A SLOPQ except that linear (2- 
point) fits are used instead of quadratic (3-point) fits. The slope is the average 
of the left and right slopes. Called by REFCON, TRANCR. 

B17A ABMAX (N, X, XM, I) 

Searches an array for the entry with maximum value. Called by LINCER, NNNCER. 

N = number of entries in the array 
X = coefficients in array under consideration 
XM = entry with maximum absolute value 
I = index on XM 

B18A MATSl(X) 

Performs operations on a column of a matrix B or on a column of errors R 
(designated X in call list) such as to form A**(-1)*X where A**(-l) is the inverse 
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of the sparce matrix formed from the Taylor series expansions of F(1,I) and their 
derivatives (in the case of MATSl) and of G(1,I) or SP(1,I,K) and their derivatives 
in the case of MATS2), viz.. 

Original matrix equation 

(A + B)V = R 

multiplying through A**(-l) 

[1 + A**(-1)*B]V = A**(-1)*R 
Called by LINGER, LINMAT, MATS2. 

B18B MATS2(X) 

See MATSl for function. Called by LINGER, LINMAT, FIRSTG. Calls MATSl. 

B19A TRMBL(ILK) 

Evaluates turbulent transport properties and their derivatives with respect, 
to nonlinear variables. Called by SETUP, NNNCER., Calls LIAD, TAYLOR, ERP, ERF. 

B19B ERF(X) 

Calculates the error function of X, Called by TRMBL. 

B19T TRANCR 

Evaluates terms required for consideration of transverse curvature. Called 
by SETUP, NNNCER. 

B20A EQUIL (KQ, Z, PRR) 

Control program for computation of chemical state of the system. Performs 
such complex functions as setting up for different types of solutions (isentropic 
expansion, stagnation point, boundary layer or wall), recalling stored values of 
boundary layer solutions and reinitializing omitted species, re-evaluating absent 
atom array, deleting molecules based on absent atom array, and, with the aid of sub- 
routines, evaluating properties, controlling principal iterative loop, and reinvert- 
ing and attempting alternate paths when convergence problems occur. Called by NNNCER, 
■REFCON, RNLCER. Calls CRECT, MATER, PROPS, RERAY, THERM. 

KQ = flag which controls chemistry options (see Fortran variables list) 
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Z = enthalpy (when used) 

PRR = pressure 

B21A THERM 

Evaluates current thermodynamic properties for each species, which data are 
required for evaluation of errors and correction coefficients in chemistry solution. 
Called by EQUIL. 

B22A MATER 

Evaluates current errors in chemistry solution and sets up matrix of linear- 
ized correction equations. Called by EQUIL. Calls KINET. 

B23A CRECT(MOE) 

Corrects state variables and composition, principal logic being involved with 
limiting corrections such that instabilities in the iterations will not occur. 

Called by EQUIL. 

MOE = 0 or 1 if linearization done predominantly on equilibrium or mass 
balance relations, respectively. 

B24A INPUT 

Reads in basic elemental composition data and species property data, selects 
base species, and sets up stoichiometric coefficients for species formation reac- 
tions. Called by SETUP. 

B25A PROPS 

Computes all properties and property derivatives required by boundary layer 
calculations. Called by EQUIL. 

B26A TAYLOR (D, FM, F, P) 

Calculates coefficients in Taylor series expansions of integrals which appear 
in the integral form of the boundary layer equations. Called by HISTXI, IMONE, TRMBL. 

D = distance between neighboring nodes I and I-l 

FM = value of function and its derivatives at I-l 

F = value of function and its derivatives at I 

P = terms in Taylor series expansion. 
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B27A LINMAT 

Sets up matrices for Taylor series expansions and linear boundary conditions 
from eta spacing, and solves to express linear corrections in terms of nonlinear . 
corrections. Called by SETUP. Calls MATS!, MATS2. 

B28A KINET 

The subroutine is reserved for modeling of kinetically controlled surface 
reactions. Called by MATER. 

B29A FIRSTG 

Computes or reads in first guesses for primary variables or instructs program 
to use values from previous case. Called by SETUP. Calls MATS2, MATSl. 

B30A ERP(X) 

Forms Dawson integral of X. Called by TRMBL. 

B30B ETIMEF(T) (entry point ETIHE) 

Subroutine to call the system for elapsed time, T, in seconds. Present rou- 
tine calls the system by a call SECOND. This call should be replaced with the ap- 
propriate system call, or the entire subroutine can be replaced by a dummy. Called 
by SETUP, HERAT, NNNCER. 

B30C LIAD (L, I, J, C) 

Alters elements of the AM matrix and the corresponding errors to reflect the 
solutions to the linear equations. Called by NNNCER, IMONE, lONLY, TRMBL. 

L = -1 for momentum, 0 for enthalpy, and K for species equations 

I = nonlinear equation 

J = 0^*^ linear variable 

C = coefficient of linear variable in l'"’’ nonlinear equation 

B30D TLEFT(I) 

Dummy subroutine. Not used with BLIMP-J. Called by HERAT. 
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B30E DATA (I, J) 

Dumn\y subroutine. Can be replaced with a call to the system for date. Called 
by SETUP, RECASE. 

1 = 9 

J is dimensioned 3 and is expecting a format of 3A6. The first 9 locations 
are filled by DATE and the second 9 locations by TOD. 

B30F TOD (I, J) 

Dummy subroutine. Can be replaced with a call to the system for time of day. 
Called by SETUP, RECASE. 

I = 18 

J = see B30E 

This subroutine and B30E fill the J(3) with information giving date and time 

of day. 

Example: 10 AUG 74 10:23:02 

B30G SECOND(T) 

Dummy subroutine. Called by ETIMEF. 

B36A OGLE (N, XAM, PRM, DPDIM, NUMX, X, P, EM) 

Looks up an array of values of a single dependent variable using a cubic curve 
fit between any two points (and corresponding two slopes) of the table. Called by 
NNNCER. 

N = number of points to be considered 

XAM = value of independent variable for which lookup is to be performed 

PRM = output interpolated values returned by OGLE 

DPDIM = output interpolated slopes returned by OGLE 

NUMX = number of tabular entries in the table 

X = tabular independent variable 

P = tabular' dependent variable 

EM = slopes to be used 
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B50A FILQ3 

This routine converts the coordinate and constraint data into elements in 
the solution matrix and sets up this matrix for FINEQ. Called by FISLEQ. Calls 
FUNXS, TRINT. 

B50B FILQ5 

This routine evaluates values of variables and their derivatives at nev; 
nodes. Called by FISLEQ. Calls FUNXS. 

B50C FINEQ 

This routine solves for the unknown coefficients of the new polynomial seg- 
ments based on LU matrix decomposition. Called by FISLEQ. 

B50D FISLEQ 

This is the main subroutine for least square curve fits of variables between 
nodal points. Called by POINTS. Calls FILQ3, FINEQ, FILQ5. 

B50E FUNXS 

This routine evaluates special polynomials for the refitting function. Called 
by FILQ3, FILQ5. 

B50F TRINT 

This routine evaluates special polynomials for the refitting function. Called 
by FILQ3. 

B50G POINTS 

This routine uses current values of the variables and their derivatives 
and solves for the coefficients of the polynomial segments between each pair of ad- 
jacent nodes. Limits placed on the velocity variable establish the new nodal dis- 
tribution and values of remaining variables and their derivatives are calculated for 
this new distribution. Called by REFIT. Calls FISLEQ. 

B50H REFIT 

This is the main calling routine for the refit procedure. It evaluates cer- 
tain constraints which depend on NETA and the type of curve fit. The B50 subrou- 
tines are all part of the REFIT option. Called by OUTPUT. Calls POINTS. 
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4.3 PROGRAM LISTING 


B01A. DUMCOM 


U 

2 , 

5.' 

A. 

5. 

7. 

fi. 

9. 

10 . . 
11 . 
12 . 

15, 
lA. 

16. 
17. 
lA. 

19. 

20 . 
2>, 
22. 
25, 
2A. 

25. 

26. 
27. 
2^ 
29, 
JO, 

5U 

32. 

33, 
3A, 
35. 
56,- 
37, 
3fl. 

3% 

AO. 

91, ’ 

92, 
A3. 
9“^ 
95, 
“ 6 , 
A7. 
46. 
99, 

50, 

51, 

52, 

53, 
5", 

55. 

56. 

57. 
56. 

59 , 

60. 
61. 


BOIA 

SUBROUTINE OUMCOM(ICK) 

COMMON/BLQCOM/ M0A( 60), MOB( 60),NSPEC,FR( 60 , 1 5 1 . w ( 3 ) , LEF ( 8) 

1 ,LEF8( ei.PIEASE.LEFWC 8),L2,L3 

COMMON/BUMCOM/ BUMP, CORMA , E ASE, ICORM , WOOT, TF Z, 1 777 , OTEMP, K IP, I X 

COMMON/COECOM/ C5,C6,C7,C8,C9,C10,Cll,C12,Cl5,C.\a,C)5 

l,Cl6,C17,Cie,C19,C20,C2l,C22,C23,C2A,C25,C26;C27,C28.C2A,C30.C31,C 
232,C33,C3A,C35,C36,C37,C38,C39,CA0,CAl,CA2,CA3,CA0,CA5,CA6,Ca7,CA8 
3,CA9,CS0,C51,C52,C53,CSA,C55,C56,C57,C56,C59.C60,C61 ,C62,C63.C6A,C 
465,C66,C67,C68,C69,C70,C7l,CT2,C73,C7A,C75,C76,C77,C78,C79,Ce0,C81 
5,C82,C83,C8A,C85,C86,C87 ,c88 

COMMON/COECON/ CKK 6),CK2( 6),CK3( 6),CK«( 6),CK5( 6),CK6( 6) 

1, CK7( 6),CK8( 6),CK9( 6),CK10( 6),CK11( 6),CK12( 6),CKl^( 6) 

2, CK1A( 6),CK15( 6),CK16( 6),CK17( 6),CKt8( 6),CK19( 6),CK20( 6) 

3, CK21( 6),CK22( 6),CKK1( 6, 6),CKK2( 6, 6 ) , XM ( 5 ) , XG (5 ) , XSP f 5 . 7) 
A,CKK3( 6, 6) 

C0MM0N/CRBC0M/HCAR8,EMIS,STEF, 4DUM,BDUM,C0UM,HTEF,HMAT,EMI8C,EMIST 

1, HPG,4SU(3),BSU(3) ,HPYGC3) ,HCHAR(3),EMIV(3) ,KS(U0) , ISO 

COMMON/EDCCOM/ PE(AO, 1),PTE(A0, ll.’SPEt 6. AO,' n.DUES, 

lUE(90),RHOE(A0),VMUECA0),TE(a0),UEOGE,DUEnGE,D2UEDG,VMWF,HE,r90 

2, D3IP(A0), IDSIP,TTVC,TVCC(90),HEA(AO),SF(20).CS(20),CSPR(20). 
3CGC20) ,CGP(20) ,sref,gep,nen,uinf,rhoinf,hinf.pinf 

COMMON/EPSCOM/ELCON, YAP,CLNUM,ScT,PRT,REO,OVS,PHOV8,PI.PTM,CL, 

1 EPSA(15) ,EP81 ,EL( 15),DPI (15,2) ,DEPC, TREF.RETR 

2 ,V1NTR(15) 

fOMMON/EOPCOM/RB(60, J),RC{60,3),RD(60,3),R.E(60,3)fPF(60,3),RG(60,3 
1),TU(6O,3),FF(6O),FFA,IEC(6O),ATAC8),AT0C8),ATC(8 ),waT(8),RA(6O.3) 

»• . ... . ■ . ■ 

2 KATC 8), IRC 8 ) , I Z, KZ ( I 0 ) , L AMI ( 60),P,Z,TK( g, 8),VNC 60). 

3 VNUC 60, 8),ITFF,KR2,HCH,NCV,WM,WTM( 60),YYY( 60),YWf 60),GG( 60) 
A ,TQ( 8, 8),EP0VRK,SIGMA,BASMQL 

C0MM0N/EQTC0M/8lP,HIP,EEt,EENL,FLl0,CPF, IRE, lER.AA, IITS, IN, IL.IIT, 

1 M0DE,HMELT,8MELT,tMAX,TMlN,MELT,SUMN,3UML, WS.WSS.BX, I3P2, ISPO, 

2 I8P,KKJ,3VA,3VB,SVC,3V0,SUMC,FFF,CMF,EP,RV, IFCJC, WTG, WTL, JC.HHG, 

3 CCPG,TTMIN,TTMAX,L7,L8,IBC 9),E0{ 8),EBLC 8 ) , A ( 1 A, i u ) , BB ( 1 U ) , 

A IPC 60),ALP( 8),FNU( 8),gAMH( 8),GAMF( 8),SLAM( 8),DY( bOI.RVS, 

5 CPC 60),HHC 60), SBC 60),TCC 60),VLNKC 60), EC 60),PNIJS( 8), 

6 BCC 8),BLNKC 8),BYC 8),IbCC 8),BEC 8),JZC A) 

COMMON/ERRCOM/FLEC A3) ,GLEC30) ,SPLEC30, 6 ) , EL A ( 253 ) , FLEM , GLEm 

l.SPLEMC 6),ELMC1 A),ELMM,IfLM,IGLM,ISPLMC 6) ,NELM, ILMM,0FLCA3) 
2,OGL(30),03PLC30, 6) , FNLE C 18) , GNLE C 15 ) , SPNLE C 15, 6),ENLM23) 

3, FNLEM,GNLEM,SPNLEMC 6), ENLMM, IFNLM, IGNUM, ISPNLMC 6) 

A,NENLM,1NLMM,DFNLC18),DGNlC15),DSPNLC15, 6),DRNlC 8) 

C0MM0N/ETAC0M/ETAC15),DETaC 15) ,OSOClA),DCUCla),Bt C1A),B2C1A) 

1, LARC123),BAl CA3, 18),BA2C30,15) 

COMMON/FLPCOM/ LEFTC 8,2) 

C0MM0N/FLXC0M/DELQW,DELJW(6),WALLQ,WALLJC6) ,0W, VJKhC7) .TPWALL 
C0MM0N/HI3C0M/Cl,C2,C3,C4,ALPHD,BETA,ZMCA,lA),ZGCa,lU),ZSPCa;iA, 6 
I ), XI CAO) ,HFC 15,5) ,HGC 15,5) ,H3PC 15,3, 6 ) , HALPH, HUE , HHUE , HFW , 0LX2 

2, C3MCA0),3ETAMCA0) 

3 .BETAVCAO) 

COMMON/ 1 NTCOM/ KR C20 ) , K IN , KOUT , MA T 1 1 , MA 72 1 , Ma T tJ, M AT2 J, NET A , I , I S , N 
1S,IT,NTIME,NSP,NSPM1 ,NAM,nLEQ,NNLEQ,NRNU, ITS.KAPPA.CBAR.CASECIS) 

2, BC8), MWE.NON.KQCIO) , ITEM,NITEM,KR17,NbT,NBT 2, It)ENT.KRQ(AO) 

3, KAUX0, JTImE, JSPEC,MDC 3), lU.ISH 
A .KONRFT 

COMMON/KINCOM/MT.FKFClOi.EAXClOI.EXKClOi.PHUC 8,10),RMU( 8,10), 

1 DKPTC10),PKPC10) ,PKRC10),RAT(10),RSIG(l0),MA(10),LL(10).PMPn0). 

2 PRMUC 8,10),EESEC 8) 

C0MM0N/N0NC0M/AM(123,123),0VnLC123),TCW, 

IVLNKW.OLPHC 7),DLPKC 6, 7 ) , DTHW, OTKW C 6),FLUXJ8( 7) 
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BOIA, DUMCOM 


«>?. 

63,' 

6<i. 

65. 

bh, 

6R. 

6«>, 

70. 

7Z, 

73. 

7fl. 

75.' 

7b. 

77. 

7B, 

70. 

60, 

61. 

83 . 

8U, 

8b. 

87, ’ 

88 , 
80 . 
on, 
**1, 
«2. 
03. 
00. 
05. 
Oh, 
07 , 
Ofl, 
00 . 

100 . 

101.’ 

102. 

los: 

10 «. 


C0MM0N/0UTC0M/Y(l5),BES,0EL3T,THENGY,THM0M,CH,BL0W,3HeAR.’cF.aHAPF. 

1 ,CM( 7),THELEM( 7) 

COHMnN/PRMCOM/TIME( 50 ) , PRE ( 00 ) , PTET ( 50),CEt S0 1 , S ( OO ) . ROK 4 P ( 00 ) 

1, RNQSE, VK4P,N0r3C.rDISC(O0),N3O(5)»MS0(5) , ITF( 50 ) , I P»F . R4DNP . CONE 

2, RADPL( 50i»R40R(ao j,RAD3(«0).lR4D 
C0MM0N/PRPC0M/PRa5),Ta5),RHQ(l5),SC(15) .CAPCnSi.QRClsi.HClS) 

1 ,CPBAR( 15 ), VMW( 15 ),PH 1 K( 15 , b) , DRHOH, DRHOK f b).ZK( 6 ). 02 KH( b). 0 

2 MU 3 K( biiOMIJOKC b)«OTK( b).OPHIKH( bltOPRKC bi.DSCKf b),nCAPCK( bi 

3, DHTILK( 6)»DQRK( 6),0CPBK( 6)»0CPTK( b),0MUl2t<( bl.DZKKf 6. h) 

0,0PHIKK( b, bit OMUOh*OHU3H,OHTILH, VMUla.CT.CTR.CPTTL.HTIL 

5, VMu3,0TH,0CAPCH,nPRH,03CH»0QRH,0CPBH,DCPTH,DMU12H, VMUdSi . RHOP 
6(15) .PHIKpn5),HP,TP,ZKP( b),VMU3P, VHUaP,HTlLP.CRNO(lo).CMR( 15) 

C0HM0N/RFTC0M/F2FIX(l5).0uM5(3),RATLIM,UKAPPA(15i, 

1 KTUR8,KAPPAT.NETAT,F2F1)(t(15).NETAL,KAPPAL 
COMMON/STTCOM/GAMI,PROUM,PRA,PR8,PRC.PRO, VMU4, VMUB, VMUC, VMIID.WC, 


1 Fl.O(7,3),VMWO,Tfl(3),U 

COMHON/TEMCQM/8POUM( b)»DER(O0),0UMHl (15),3L0PF(i5'),REr)UMn5) 
l,3DUMl (00) ,SDUM2(00),FWOUM(aO),XlCON(00>.FWCnN(00),FWlNlT( 1 ) 
2/XIINlT( 1),0U0S( 00) 

COMMON/TURB/ 3TUR8,DELCON,OCLNUM,TURPR(15) 
CONMON/UNICOM/UCFSlCOj.ITDK, JUNIT» IPLOT,KA(a;i<>i 
COMM0N/VARCaM/F(0,15)#G(3,15),SP(3,15. 7),ALPH 
COMHON/WALCOM/FW(40. 1)>TW(00» 1).HW(00, 1),SPM( b.UO. 1) 
l,RHOVW(O0, 1),FLUXJ( 3*00, 1 ) , IHW, ITW, IFN, I3PW, IRHOVW, tFL 'JX J 
EQUIVALENCE (FLPEQV , TXI ) , (BLOEQV.MOA ) • (BUMEQV, SUMP) . (C0EE0V,C5) . 

1 (COVEOViCKl j, (CRBEOV.HCARB), (EOGEQV.PE), (EOPEOV.RB), (EPSEQV, EICON) 
a,(KINEQV.MT), (EQTeQV,8IP),(ERREQV,FLE),(ETAE0V,ETA),(HTSEQV,cn. 

3 (INTEQV.KIN) . (N0NEQV,AM), (PRMEOV.TIME) » (PRPEOV.PR) , ( ST TFOV , R AM ) i , 

0 (TEMEQV.SPOUM), (VAREOV.F), (W4LEQV,FK), (FLXEQV.DELQwi, (OUTEOV.Y) 
DATA ATA(1),AT8(1),ATC(1)/0H ,UH ,UH / 

IF (KK-lOl) 70*10,00 

10 REAO( 12 ) FLPEOV,BLOEQV,8UMEQV,COEEQV,CONEOV,CRBEQV,FPSEQV. 

1 EOCEflV, eOPEOv* KINEOV, EOTEUV, EROEQV, ETAEQV. 

a FLXEQV, HI 3 EQV, INTEQV. NONEQV, OUTEOV, PRMEOV, 

3 PRPEQV, STTEOv, TEMEOV, VAREOV, WAI.EQV 


GO TO 70 
00 wRiTEda 
1 
2 
3 

70 CONTINUE 
5 RETURN 

end 


FLPEQV,BLQEQV,BUMEQV,COEEOV*CnNEQV,CRBEOViEPSEOV, 
E06E0V, EQPEOV* KiNEOV, EOTEQV, ERREQV', ETAEOV, 
FLXEQV, HISEQV, INTEQV, NONEQV* OUTEOV, PRMFBV* 
PRPEQV, STTEOV, TEMEOV, VAREQV* wAl'eQV 
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B02A. BLIMP 


CBiiMP boundary layer integral matrix procedure 

COMMON/BLOCOM/ M0A( 60), mob( 60),NSPEC,FRf 60 , 1 5 5 , w ( j) , LEE C B) 

1, LEPSC S),PIEASE,LEEW( B) 

COMMON/INTCOM/ KR(20),KIN,KOUT,MAT1I,HAT2I.MaT1 J,MAT2J.NETA,I, TS.N 
IS, IT,NT1ME,N8P,N3PM1,NAH,nLEO,NNLEQ,NRNL, ITS.KAPPA.CBAR.'CASEdS) 

2, B(8), MWE, non, KQ dOj, item, N 1TEM,KR17,NBT, NBT2, IOENT,KR9(aO) 

3, KAUX0, JTIME, JSPEC,M0(1),IU, I3H 

COMmON/PRMCOM/TIME( 50),PPE(a0),PTET( 50),CE( 50 j,3(aO),ROKAP(aO) 

1, BNOSE, VKAP,NDISC, I0I3C(«0),NSD(S),HSD(5) , ITF( 50 ) , I PRE , R AONO , CONE 

2, RADFL( 50),RAOR(aO),RADS(«0),IRAD 
COMMON/UNICOM/UCD,UCE,UCL,UCM,UcP,UCR,UCS,UCT,UCV, ITOK 

1 ,IUNlT,IPL0T,KA(2,i9i 

COMNON/WALCOM/FW(ao, l),TW(aO, 1),HW(<|0, l),SPWt 6.U0, n 
l,RHOVW(«0, 1),FLUXJ( 3,40, 1) , IHW, I TW , I F w , 1 3PW , I RHOVW , I FLUX J 
1 FORMAT(Al) 

data KA/ 6HJ/KG ,6HB/LB , 6HN/M2 ,6HaTM , 6HMFTER ,6HF00T 

1 , 6HJ/KG-K,6HC/GM-K, 6HOEG-K ,6H0EG-R , 6HJ/KG ,6Hr/GM 

2 , 6HM/S ,6HF/3 , 6HKC/M3 ,6HLB/F3 , 6HMETERS,6H FEET 

3 , 6HKG/S ,6HLB/S , 6HW/M2 ,6HB/SF? , 6HKG/SM2 , 6Hl B /SF ? 

a , 6HNATTS ,6H B/S , BHN-3/M2 , 6HLB/FS , 6HJ/KG-K , 6HB/LB-R 

5 , 6HW/M-K ,6H8/3F-R, 6HN/M2 ,6HL8F/F2, 6H (N) ,6H(LBF) 

6 , ' 6H (M2) ,6H (F2) / 

C CONVERSION FACTORS SI UNITS TO BLIMP UNITS 

data UCD/.062a2r«)62/,UCE/a,3021E-Oa/,UCL/3,28085RBR5/ 

1 , UCM/2. 2046226/, UCP/9.86R2327E-06/,UCR/8. 6 naE-05/ 

2 ,UCS/, 020885434/, UCT/1. 8/, UCV/. 671968995/ 

data iast/ih,/ 
data last/ih./ 
data IBLANK/2H / 

KIN*5 

K0UTs6 

KPCHa? 

KPLTaie 

MSD(n«KPCH 

MS0(2)«KPLT 

JTIMEbI 

B(1)>.S 

B(2)>. 333333333 
B(3)>, 166666666 
8(4)b.125 
B(5)b. 041666666 
B(6)s. 033333333 
6(7^8,013866888 
BC8 )s, 003968254 
iTai 

46 mWEb-1 
NBTb19 
NBT2B20 
ISbI 
lUai 

U1 iTEMal 

42 CALL SETUP 

43 call ITERAT 

call output 

S5 CONTINUE 

IF(NON)43,44,40 

44 ITEMbITEM*! 

IF(ITEM-NITEH) 42,42,45 

45 ISHalS 
lUalU+l 

49 lSal3*l 

IF(KQ(10)+I3.EG,-101KQ(10)BI 
IF(IOISC(IS).EQ.2)GO to 49 
IF(IS.LE.NS) GO TO 41 
if(itf(ii),ne.o) call ROCOUT 
40 READ(KIN,1) jast 

IF(IAST-JAST) 47,46,47 

47 IF(LAST-JAST) 40,48,40 

48 STOP 

end 
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1 . 

з, 

5. 

и. 
5.' 

S. 

«>. 

10 , 

It. 

1 ?. 

13 ,' 

1", 

15. 

16. ’ 
1’, 
IB, 
1«, 
20 , 
2), 
22 , 
23. 
2U, 
25. 
2h, 

2B. 

20, 

5fl. 

31. 

32. 

33. 

5", 

35, 

36, 

37, 

3B, 

30, 

ilO. 
« 1 .' 
a?; 
“3, 
aa, 
as, 

U6. 
«T. 
as; 
00, ■ 

50. 

51. 

52. ' 

53. 
Sa. 

55 ; 

56, 

57 , 
SB. 
5«».' 
60.' 
61 - 


CB03A 

SUBROUTINE SETUP 

dimension HISTl (515) ,HiaT2(7i6),HISTS(a21 1, VMiTtUSa) ,HISTU{520i 
COMMON/BLOCOM/ MOA ( 60), MOB( 60 ) , NSPEC , FR ( 60 .1 5 ) , W ( 5 i , IFF ( S) 

1, LEFS( 6),PIEA8E,LEFwC 8) 

COMMON/EOGCOM/ PE(aO, l),PTE(40, i),3PE( 6,U0, D.OUES, 

lUE(aO) ,RHOE(aO) , VMuE(aO),TE(aO),UEDGE,DUEOGE,D2 UEDG, VMWE.HE.cRO 
2,03IP(ao),IDSlP,TTVC,TVCC(40),HEA(aO),SF(20);cS(20),CSPR(20). 
3CG(20),CGP(20 ),SREF,GEP,NeN,UINF,RHOINF,HINF,PINF 
COMMON/FLPCOM/ LEFTC 8,2) 

COMMON/HISCOM/Cl,C2,C3,Ca,ALPHD,BETA,ZH(«, mi.ZGCU, )«),ZSP(a, ta, 6 
I ) ,xl (aO),HF{ 15,5),HG(15,3i,HSP(15,3, 6 ) , HALPH , HUE , HHUE , HFW , PL*2 

2, C3M(aO),BETAM(aO) 

COMMON/ INTCOH/ KR (20 ) , K IN, KQUT, M AT 1 1 , MAT2 I , MA T IJ , MA T2 J , NE T A , 1 , 1 3 , N 
IS, IT,NTIME,N3P,NSPMl,NAM,NLE0,NNtE0,NRNL, I TS , K APPA , CBAR . C ASF ( 1 5 ) 

2, B(8), MWE,NON,KQ(10),ITEM,NITEM,KR17,NBT,NBT2, IOENT,kR9(aO) 

3, KAUX0, JTIME, JSPEC,M0(3),IU,ISH 
ajKQNRFT 

C0MM0N/PRMC0M/TIME( 50),PRE(40),PTET( 50),G£( 50),Sfa0i.ROKAP(40) 

1, RN0SE, VKAP,NDISC,IOISC(40),N3D(5),MSO(S) ,ITF( SO) , IPRE,RADNn,CnNF. 

2, RADFL( 50),RAOR(40),RAOS(40),IRAD 
C0mm0N/VARC0m/F(4,15),G(3,15),SP(3,15, 7),aLPH 
COMMON/WALCOM/FW(40, l),Tw(40, 1),HW(40, l),SPW( 6,40, n 

1,RHOVW(40, n,FLUXJ( 3,40, I ) , IHW, ITW, IFN, ISPH, IRHOVW, IFLUXJ 
COMMON/UNICOM/UCO,UCE,UCL,UCM,UCP,UCR,UCS,UCT,UCV, ITOK 
1 ,IUNIT,IPL0T,KA(2,1R) 

EQUIV4LENCE(HIST1,XI), (HIST2, PE),(HIST3,F),(VMAT,C1),(HI3T4.FW) 

2 F0rMAT(1H16X4HTIMEE12.S,56H SECONDS - 

1 ,2X3A6) 

3 F0RMAT(/IH17X4HTIM£Ei 2,S,35H SECONDS - - . STRFAMWISE DIMENSlONEia 
1.5,11HFEET • - -,2X3A6) 

4 F0RMAT(1H18X4HCA3EI3,32(2h -)2X3A6) 

5 F0RMAT(lHl,7X,7HSTATI0N,Ia,9(2H •),15H AXIAL POSITION ,E1?.5,1X, 

1 A6 ,6(2H -),3A6) 

9001 FORMAT(I3,7E10.3) 

data M0(2)/6H / 

MD(n«MD(2) 

M0(3)«M0(2) 

CALL ETIME 
call DATE(9,MD) 

CALL T0D(18,mD) 

KR(2)o2 

J«M00(ITEM,2)+1 
IF (MWE*1) 1154,101,1154 
lisa IF (KONRFT-1) 154,154,103 

C INPUT CONTROL AND TITLE CaOD, NUMBER OF ELEMENTAL SPECIES TO BE 

C considered, times AND BODy POSITIONS TO BE CALCULATED, AND 

C reference C0NDlTinN3(WHEN given at THESE PRECISE TIMES AND BODY 

c positions 
? 01 CALL RECASE 
KOiClOiaO 

IF(KR(7),GT,1) call TRMBL(l) 

IS»1 

iTal 

C input eta values and set up and invert linear MATRICES. NOTF. .KR( n 
C must be unity for first Case, but formation of BAI and BA2 can be 
C AVOIDED FOR SUBSEQUENT CASES BY SETTING KR(1) EQUAL TO ZERO. THIS 

C CAN BE DONE IF AND ONLY IF ETA SPACING IS THE SAME 

IF(KR(1)) 104,104.103 
?03 call LINMAT 

IF (KONRFT.EO.2) go to 154 
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62, 

I'oa 

KP17oKR(17) 


tSfl 

lF(IS+ITEM-2j 105,105,157? 

6a, 

1s72 

IF(KR(3)) 1570,1577,1570 

61. 

ll70 

DO 1573 Kal,8 

66 , 


IFCLEF(K)-I) 1573,1575,1573 


llTS 

LEF(K)#2 

6fl. 

1173 

CONTINUE 


1177 

IF(K0NRFT.NE.2)G0 to 107 

TO. 

C 

initial guesses for principal dependent variables. CALCULATE(KR(2) 

71. 

C 

sOi, INPUT(KR(2)an, OR USE VALUES FROM FRQN PREVIOUS CASEfKR(2) 

72, 

C 

s2). NOTE. .latter REQUIRES SAME ETA VALUES AND SAME SPECIES. ITS 

75. 

C 

utility is for repeated Similarity solutions, tt obviously cannot 


C 

be used for first case. 

75. 

?05 

CALL FIRSTG 

76. 


IF (KONRFT.EQ.2) go to 107 

77. 


lF(TIME(lh 1051,1052,1052 

7fl. 

InSl 

lTAB«ABS(TIME(ITEMn 

70. 


WRlTE(KOUT,a) ITA8, MO 

80, 


GO TO 106 

81. 

1052 

NRITE(K0UT,21 T1ME(ITEM1,mO 

82, 

?06 

IF(KR(7ii20a, 204,203 

85, 

203 

lF(KR(12).NE.li CALL STATEN 

8a, 


GO TO 202 

85. 

20U 

lF(KR{12).NE.n call INPUTIPTET ( 1) ) 

86. 

202 

CALL REFCON 

87. 


IF(KQ(9) .NE.Oi CALL TVCEOG 

8fl. 


KR(12)31 

80. 


iSal 

on. 

707 

00 1262 Iai,8 

01 ; 


IF(i3.EQ,1.ANO.LEF(i).EQ.2.AND.KR(2).GE,0)LEF(T)b1 

02. 

1262 

LEFT(I,JlaLEF(n 

05, 


•compute HISTORIC INFORMATION 

oa. 


KR3STbKR(5) 

95, 


IF (KONRFT.E0.2.ANo,KR( 3).E0.2) KR(3)al 

06l 


call histai 

07. 


kpcsipkrsst 

08, 


lF(TIME(in 1053,1054,105a 

00. 

1051 

iTABaABSlTIMEflTEM) j 

ion. 


WRlTE(KOUT,5)IS,PTET{I8TlO),KAnUNIT*l ,9),MD 

101, 


GO TO 126 

102, 

loSa 

WRITE (KOUT,3)TIME(ITeM),8(13),Mo 

105. 

726 

CONTINUE 

loa. 


HWEaO 

105.' 

c 

start of ITERATION LOOP 

106. 

158 

iTSaO 

107. 


KR(i7)aKR17 

108. 

750 

RETURN 

lOO. 


end 
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1 , 

2 . 

3. 

«. 

5. 

5 : 

•>, 

10 , 

11 . 

12 , 

15 , 

15. 

10 , 

17. 

i«: 

20 . 


CBoai 


SUBROUTINE HERAT 

COMMOH/BLOCOM/ M0A( tiO), HOB( t>0),N8PEC,FR( 80 , 15) , w { Si ,LEF ( R) 

1, LEF3C aj|PlEASE,LEPW( 8) 

COMMON/BUMCOM/ BUHP,C0rMA,EA3E« ICORW, I*D0T , TFZ . 1 77T , OTEHP , K IP , I * 

COMMON/ETACOM/ETA(15i.DELTA(lS),OSOtlA)jDCU{l«),Bl na),B2(l«i 
l,I.AR(t2Sj,BAl(a3, tfi) ,8A2(S0,15) 

C0HM0N/ERRC0M/FLE( a3).GLE(30).3PLEC30, 6) ,ELA r253),FLEM/r,LEH 
1.3PLEM( 6i.ELM(l«),ELMM,lpLM,ICLM,lSPLM( 0) . NEL^ , , OFL (03) 

2, DCL(30),D3PL(30, 6) , FNLC( 18) , CNLE ( 1 5 ) , SPNLE (1 5, 6),FNL(t23) 

3, FnLEM,GNLEH,SPNLEMC 6)> ENLHM, IFNLM, IGNLM. ISPNLM( 6) 

4, NENLM,IN|.MM,0FNL(18),0GNi.(15)*08PNL(15, 8 ),DRnl( 8) 

COMMON/INTCOM/ KR(20) ,KIN,KOUT,MAT1I,MaT2I,M4Tij,MAT2J,NFTA, T. TS,N 

13»1T»NT1ME.N8P»N8PM1,NAM,nLE0,NNLE0,NRNL, I TS. K APPA , CBap, C ASE C 1 5 ) 
2,8(8), MWE,NON,KQ(10),ITEH,NrTEM,KR17,NflT,NflT2,IDENT,KR9(00) 

3,KAUX0,JT1ME, JSPEC,M0(3) 

C0MM0N/PRMC0H/TIME( 50),PRE(«0),PTET( 50),GE( 50),S(O0),POKAP(a0) 
l/RNOSE, VKAP,NOlSC#IDlSC(ao)/N3D(5),MSD(5),ITF( 50 ) , TPRE, RAONf!, CONE 
2,RADFL( S0),RAPP(40)f RA0S(40),IRA0 
C0MM0N/VARC0M/F(4,1S),G(S;15),SP(3, 15, 7) ,ALPH 


21, 

5 

F0RMAT(I3, 1X,F8.3,F8.3,F7.4,F8.4,1PE7.0 

22. 

8 

FORMAT! /I X15HITERATE0 VALUESl 1 X47H0AMP 

23. 


INSERVATION E08./1X58HITS TIME ALPH 

2", 


ITUM energy 6(SXA4,A2)) 

25. 

1 

F0RMAT(22H NON.CONVERGENT OUTPUT) 


?8l 

iTSoITS+l 

27. 


JTImE«MAX0(JTImE,0) 

28, 


CALL TLEFTdLEFT) 



IF(ILEFT-JTIME) 30.30,31 

30, 

SO 

JTIHE»-JTIME 

31. 


KR(4)»1 

32. ■ 


KR(18)»l 

33, 


KR(18)«1 

3tt' 


KR(l9)«l 

35. 

31 

CONTINUE 

38, 


N0N>2 

37. 

323 

IF(ITS-S) 328,328,321 

38,- 

320 

lF(KR(2h 325,321,321 

39. 

321 

iFlKQdOjflO) 328,322,328 

40.' 

328 

IF(NQN-2) 325,330,325 

41,- 

325 

RETURN 

«2. 

322 

Ka(10)82 

43. 


lorscdsiBi 

44. 


EASEaO.ll 

«5. 


IT3b2 

48. 


WRITE(K0UT,324) 


324 

format(96hi prior laminar solution a 

48. 


1 WILL 8E INCLUDED AND SOLUTION CONTINUE! 

49^ 

328 

IF(NQN) 325,330,330 

50. 

330 

NONbO 

51. ■ 


IF(ITS.EQ,.I ) CALL NNNCER 

52, 


CALL NONCER 

53. 


EASVbEASE 

54. 


iTSslTS+l 

”, 


CALL NNNCER 

58. 


ET3ALPH*ETA(NETA) AO. 00004 

57.' 


ITSbIT3-1 

58, 


call ETIMEF(TIMO) 

59. 


FPPWbF(3,1)/(ALPH*AlpH) 

80. 


IF(KQ(10).EQ.2) go TO 1900 

81. 


rF(KR(a)AKRd6)AKR(lT)AKR(18)/2AKR(iq)*l 


MAX.UIN 

FPPW 


max. ERRORS 
ERROR 


IN CO. 
MOMEW 


//) 


TRANSITION. TURBULENCE 


IflR, IPR, IROl 
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b2. 

6 «. 

65 , 

66 . 
67, 
6R, 
66 . 
7f>. 

71. 

72 , 
7S. 
7tt. 

75, 

76, 

77, 
78^ 
76. 
en.‘ 

62, 

83. 

8 «, 

85. 
66 . 

87. 

88 , 

86 . 
90. 


?86 IF (ITS-l) 1901,1601.1911 

1900 KQ(10)«1 

1901 IF (N8PM1) 192,192,190 

!90 WRITE(K0U7,6)(H0A(K),H0B(K),K3l,NSPMl j 
CO TO 191 
?92 WRITE(KOUT,7) 

CO TO 190 

IPII IF (N3PMljl6«, 199,191 

T61 WRITE(KOUT,5)ITS,TImO,ALPH,FPPW,EASY,ELMM, IFnlm.FMLEM, IGNLM,RNLEH. 

1 (ISPNLM(K),SPNLEM(K),KBl,kj3PMl),NON 
GO TO 1920 

?99 WRITE (KOUT, 5) ITS, TIMO,ALPh,FPPW, easy, ELMM, IFnlm.FNLEM, IGNLM.GNLEM 

1920 IF(KR(2)) 162,1921,1921 

1921 IF(ELHMaENLMM-ET 1 162,162,159 

7 F0RMAT(/7X65HITERATED VAUuES DAMP MAX.LiN MAY. ERRORS IN CONSE 
IRVATION EQ3./1K58HIT8 TIME ALPH FPPW ERROR MOMENTUM 

2 ENERGY ) 

?62 nONbO 

GO TO 320 

?59 lF(IT3-50) 161,160,160 
?60 WRITEtKOUT, 1 ) 

IF(ELMM*ENLMM-ioo,0*ET) 162,162,1601 
UOl NONBl 

GO TO 320 

C iterate or OUTPUT 

161 lF{KR(On 181,181,165 
T93 NONb-1 

GO TO 323 

end 


4-21 



B05B, NNNCER 


1 . 

!: 

«. 

5^ 

A. 

7. 

10 . 

H,' 

12. 

15, 

15. 

Ifc. 

I", 
10. 
20 , • 

22 . 

25, 

2 «. 

25. 

a**, 

27. 
2fl. 
20 ; 

30. 

31. 

32. 

33. 
3«.' 
35, 
3A. 
3r; 
3fl. 
30. 
ao^ 
«i. 
«2. 
«3, 

«5. 
46. ■ 

4fl. 

40. 

50. 

51. 

52. 

53; 

54. 

55. ' 
5A. 
57. 
5fl.,- 
50. 


60. 

61 .' 


C 


805B 

SUBROUTINE NNNCER 
integer 4SU,BSU 

OIHENSIONCOEEQV(84),COEFQV(240) 

COMMON/BLQCOM/ M0A( 60)« H08( 60 ) , NSPEC » FR ( feO , 1 5 5 . W t 5 i , LEF ( 8) 

1 ,LEFSf 8),PIEASE.LEFW( 8),L2#L3 

COMMON/BUMCOM/ 8UmP,C 0RMA,E*3E/ ICORM , WDOT , TF Z , 1777 , DTEMP , K t P , I X 
COMMON/COECOM/ C5,C6,C7,C8,C0,C1 O.Cll ,C12,C.t3,C\4,C15 

l.Cl6«C17f Cl8,ClO,C20.C21.C22.C23.C24.C2S,C26,C27.C28.r?o,C30,C31 ,C 
232,C33,C34,C35,C36,C37,C38.C30,C40,C41,C42,C43,C04.C45,C46,C47,C48 
3,C40,C50,C51,C52,C53,C54 ,c 5S,C56,C57,C58,C50.C60.C61 ,C62,C63,C64,C 
465»C66.C67.C68,C60,C70,C71»C72.C73.C74,C75,C76,C77,C78.C70,C80,C81 
5.CB2,C83«Ce4,C85,C86,C87.cB8 

COMMON/qOECON/ CKIC 6)»CK2( 6)»CK3( 6).CK4( 6l,CK5t 6).CK6( fe) 
i,CK7( 6),CK8( 6),CK0( 6),CK10( 6),CKll( 6),CK12( bJ.CKlSt 6) 
2«CK14( 6),CK15( 6),CK16( 6)«CK17( 6).CK18( 6),CK(0( 8).CK20( 6) 

3, CK21( 6}»CK22( 6),CKKi( 8> 6).CKK2( 6, 6 ) > Xh (5 ) , X6 (5 ) . XSP (5. 7) 

4, CKK3( 6« 6) 

COMMON/CRBCOM/HC4RB*ENIS,STEF»AOUM,80UM,CDUM,HTEF,hMAT,EMISC.FMlST 
l,HPG,A8U(3)#aSU(3l.HPVG(3j»HCHAR(3),EMIV(3),KS(40j,TSU 
comhon/eogcqm/ pe(40, i),pte(4o, li.sPEt 6,40, n.’nuEs, 

IUE(40) ,RH0E(40) , VMUE(40),TE(40),UEDGE,OUEDCE.02UEDG, VMWE.CGE.COO 
2,03lP(40),I03IP,TTVC,TVCC(40),HEA(40),SF(20),CSt20),CSPR(20).' 

3 CG(201 ,CGPC20) ,3REF,GEP,NEN,UINF,BH0INF 
COMHON/EPSCOM/ELCON, YAP»CLNUM,ScT,PRT,RED,0VS,RHnV8,PI,PTM,CL, 

1 EPSA(15),EP31,EL<15),0PI(15,2),DEPC,TREF,rETR 

fOMMON/EaPCOH/RB(60,3)>RC(6O,3),RD(60,3),REC60.3),RF(60,3i,Rr.(b0,3 
l)»TU(60,3iiFF(60),FFA»IFC(60),A7A(8),AT8ta),ATCt8),WAT(ei ,RA(60,35 

2 KAT( 8), IRC 8)»IZ,KZ(10),LAMI( 60),P>Z>TK( 8, 8),Vn( 60^. 

3 VNUC 60> 8),ITFF.KR2,HCH,NCV,WM,WTM( 60),TVY( 60j,YW( 60),0GC 60i 

4 ,TQ( 8, 8),EPOVRK,3IGMA,bA3MOL 

COMMON/EOTCOM/SIP,HIP,EEL,EENL»FLIO,CPF,IRE, lER, A A , 1 1 TS , I N , It , 1 1 T , 
J mode »HMELT, smelt, TMAX, THIN, melt, 3UMN,SUHL,WS,W.SS,BX, I SPP, I SPO, 

2 I3P,KKJ,8VA,3Va,SVC,3V0,SUMc,FFF,CMF,EP,RV,IFCJC,NTG,WTL. JC.HHG, 

3 CCPG,TTMIN,TTHAX,L7,L8,IB( 0),EB( 8),EBL( 8 ) , A fl 4 , 1 4 j , BB f 1 u j , 

4 IP( 60),ALP( 85,FNU( 8),gAMH( 8),CAMF( 8),3LAM( 8),0Y( bOi.PVS, 

5 CPC 60),HHC 60), SBC 60),TC( 60),VLNK( 60), EC 60),PN',IS( 8), 

6 BCC 8).BLNKC e),BYC 8 ),IbCC 8),BEC 8),JZC 4) 

COMMON/ERRCOM/FLEC 43),OLEC30),3PLEC30, 6 ) , EL A (253 ) , FLFN , GLFm 

1,SPLEM( 6),ELMC14),ELMM,IfLM,IGLM,I3PLMC 6 ) , NELM, ILMM , OFL (43 ) 
2,OGLC3O),OSPL(30, 6 ) ,FNLE ( 18 ) , GNLE ( 1 5 ) , SPNLE (1 5, 6),ENLM23) 

3, FNLEM,GNLEM,3PNLEM( b), ENLMM,IENLM,1 GNLM,ISPnlm( b) 

4, NENLM,INLMM,0FNLC18),0GNL(15),DSPNL(15, b),DRNL( 8) 
COMMC)N/ETACOM/ETa(15),OET4(15),OSQ(14),I5CU(14),B) (14),B2(14) . 

1, LARC123),BAl (43, 18),BA2(30,15) 

COMMON/FLXCOM/OELQW,OELJW{ b), hallo, WALLJC bi,OW,VJKW( 7),TPWALL 
C0MM0N/HISCdM/Cl,C2,C3,C4,ALPHD,BETA,ZM(4, 14),7G(4,14),ZSP(4,’14, 6 
1 ),Xl(ao),HFn5,5),HG(l5,3),H3P(15,3, 6 ) , HALPH , HUE , HHUF ,'hF W , DLX2 

2, C3MC40),BETAM(40) 

common/ INTCOM/ KR(20),KIN,KOUT,MAT1I,MAT2I,M4T1J,MAT2J,NFTA, I, IS.N 
18» IT,NTIME,N8P,NSPM1 ,NAM,nLEO,NNLEO,NRNL. ITS,K4PP4,CB4R,CASE(!5) 

2, BC8) , MWE,NON,KQ(10i,ITEM,NITEM,KRl7,NBT,NBT2, I BE NT , KRO ( 40 ) 

3, KAUX0,JTIME, JSPEC,H0(3),IU,ISH 
COMmON/NONCOM/AM(123,123),OVNL(123),TCW, 

IVLNKW,0LPHC 7),0LPKC b, 7) ,OTHW, DTKW ( b),FLUXJ8( 7) 
COMMON/PRMCOM/TIME(50),PREC40),PTET(50),GEC50),3(40),ROKAP(40) 
C0MM0N/PRPC0M/PR(15),T(15),RH0(15),SCCl5),CAPC(15),QfiC15),H(l5) 
1,CPBARC15),VMW(J5),PHIKC15, b) »ORHOH, DRHOK ( b),ZK( b),DZKH( b), B 
2MU3KC b),0MU4K( 6),0TK( 6),0PHIKH( 6'),DPRK( b),03CK( b),BCAPCK( b) 
3,DHTILKC 6)j00RK( 6),0 CPBkC 6),DCPTK( 6),DHU12K( b),BZKK( b, 6) 
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a,DPHlKK{ 6. 6), DMuaH.DMUJH.DHTlLH, VHU12.CT,CTR,‘CPTIL.HTIL 

5i VMU5,0TH,0CAPCH,DPRH,03CH»0QPH,DCPBH,DCPTH,DMU12H,VMU(i5j f SHOP 
6(15),PHIKPn5j,HP,TP,ZKP( 6).VMuJP,VMURP,HTlLP.CRH0Maj ,GMR( 1 ?) 
COMMON/ViPCOM/F(a, 15),G(3,15),SP(J,15, 7),ALPH 
comhon/malcom/fw(4o, i),Tw(ao, n,HW(aO/ 1 )«spm( 6,ao. j) 
l.RHOVWCaO, n.FLUXJt 3.40, 1 ) , IHW. ITW, IPW, ISPW, IRHOVW, IFLUXJ 
DIMENSION ENLMdj.lENLMCl) 

COMMON/TURB/ STUR8 

equivalence (ENLM(n.PNLEM).(IENLMf n.IFNLM) 

DIMENSION DELQJW(n,WALLQj(l) 

EOUlVALENCE(DCLQW.DELQJN(t)).(WALLO»WALtQJ(in 
DIMENSION EQT(l) 

EOUI valence (EOT ( t), SIP) 

OIMENSIONCORARH) 

EOUIVALENCE(CaRAR(l),AM(n) 
dimension PREQ(t) 

DIMENSION ZEITfR) 

EQUlVALENCE(PREQm.DRHOH) 

EOUIVALENCE(C5,COEEQV). (Ck) (n.COEFQV) 

C**N8***N0TE 240+1. 540+1 .725. 73o*1 WHEN REOIMENSIOnInc 
EASE aAMINl(EASE*2..1.0) 
lE(ITS-l) 11.5.11 
5 ease ■ .3333 
BUMP a 1.0 
1F(ITEM+IU-2)3.3.2 

2 IF(WOOT) a. 3. 3 

3 WOOTa-, 12/Cl 
a PlEASEal. 

ICQRH a 1 
CORMA a l.E + 10 
TFZ a 0. 

IF (KR9<I8)) 8.8.7 

7 KR(9)aKH9(I3) 

8 DO 17 lal.NETA 
17 EP3A(ljaO. 

IF(KR(9)-2) 11.10,9 

9 FLUXJ(3,I3,IT)b-1, 

10 I3PbIZ+ 1 
KKaMAXOd.KSdS)) 

WClj a FLUXJCI.IS, IT) 

W(2)aPLUXJ(2,IS,IT) 

W(3)aFLUXJ{3,I3,IT) 

L2a2*KK 

L38L2+1 

IF(KR(9)-2) 11.11.16 
16 HPGbHPYG(KK) 

EMISCaEMlV(KK) 

HCARBbHCHAR(KK) 

DO 12 JalSP.NSPEC 
IF(mOA(J)-ASU(KK)) 12,13,12 

13 IF{MOB{J)-eSU{KK)) 12,14,12 

14 ISUaJ 

CO TO 11 
12 CONTINUE 
iSUalSP 

11 KiPaO 
IX a 0 

C-... evaluate coefficients and errors FOR nonlinear equations 
C initialize am matrix 
do is Ib1,123 
ENLlDaO. 

DO IS Jal.NNLEQ 

15 AMCI. J) a 0. 

C EVaL. groupings WHICH change during iteration put ARE not F(ETA) 
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IZh. 


40 

C5 » 1. / ALPH 

12T. 



OUMl B aLPH * ALPH 

US. 



C6 B BETA * OUMl 

UQ. 



CONJB25036.5 

130. 



C7B-UE(IS)/0UHi*UE(IS)/CawJ 

131. 



Cfl s ALPHD * C5 

132, 



c4 8 C4 - ce 

133, 

C 


finally, eval contributions to am and errors from other 

134. 

C 

• • « • 

start of major 00 LOOP POR eval of coeffs and errors at 

135. 



K0C1)b2 

13h. 



K0(5)b0 

137, 



CALL ETIMEF(ZEIT(1)) 

138, 



DO 44 Ial,NETA 

134. 



M»MATlJtI-MAT2J 

140, 



MXbMAT2J«1 

141. 



H(I)bG( 1, I)+0.5*F(2, I)*C7*F(2,n 

142, 



hPbg( 2, n+F(2, 1)*C7*F(S,n 

143. 



lF(KRC7h 47,47,46 

144. 


46 

CALL STATE 

145, 



GO TO 48 

I4h. 


47 

CALL EQUIL(KQ,H(n,PE(IS,iTn 

147, 


48 

IF(l-l) 50,50,54 

14fl. 


50 

IF(NSPMI) 53,53,51 

140. 


51 

00 52 Kb1,N8PM1 

ISO, 



00 31 KKb1,I2 

151 . 


31 

0LPK(K,KK) b A(KK42, K«2) 

152. 


52 

OTKW(K)b DTK(K) 

153, 



DO 32 KK8l,IZ 

154. 


32 

OLPHCKKIb A(KK+2,1) 

155, 



VLNKHbVLNK(ISU) 

150. 



TCWaTCdSU) 

157. 



HCWAL e HH(ISU)/WTM(iSU)#i,8. 

158, 


53 

OTHWbOTH 

154. 



M»116 

Ufl, 



MXat 

161, 


54 

RHOP(naDRHOH*HP 

162. 



IF(NSPMl) 58,58,56 

163. 


56 

00 57 Kal,NSPMl 

164. 


57 

RHOP ( I ) a RHOP C I ) +ORHOK ( K ) *sP ( 2 , 1 , K ) 

165, 


58 

LaO 

166. 

c 


■upper limit is max number of species (mxnsp) blast dim 

167. 



00 49 MMai, 7 

168, 



MBM«MX 

164, 

c 


■UPPER limit CORRESPONOS TO DIMENSIONS ON AM ARRAY 

170. 

c 

rnm^mt 

■lower limit is upper lIMIT-(2*MXNSP*1 I+4/mXNSP) 

171, 



00 49 Nb48,123 

172, 



LaL + 1 

173. 


44 

AM(m,N)bPREO(L) 

174; 



RETURN 

175. 



ENTRY NONCER 

176. 



CONJb25036^5 

177. 



UEOGEal , 

178. 



OUEOGEaO. 

174. 



GEPbO. 

180. 



CGEbO^ 

IBi; 



CGEPaO, 

182. 



DUHa-RH0E(l3)*RaKAP(lS)*C3*VMUE(I3) 

183, 



SFEaOUM*F(l,NETA)*UE(I8) 

184. 



IF(KR(5)-2) 486,487,486 

185. 


487 

IF(XICIS)) 488,484,488 

186^ 


484 

FEDGEb-RH0INF/'2,*iJINF/(RHoE(I3)*C3*VMUE(I3)*0UFS) 

187. 



GO TO 497 

188. 


488 

FEDGEaRHOINF/OUM*UINF/UE(lS)*(ROKAP{IS))«*2/2. 

184. 


447 

SFEbFE0GE*0UM*UE(I3) 
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igft. 


486 

lF(KR(5)-4) 490,496,499 

lO), 


090 

lF(KR(5)-2) 499,491,491 

192. 


496 

CALL OGLE ( 1 , SFE , CGE , CGEP,NEN, SF ,CG, CCP 1 

19S, 


491 

CALL OGLE (1 ,SFE,C3E.C3EP,NEN,3F,CS,CSPR) 

I9a. 



DUBaC3E4SREF-3IP 

195. 



CHE»1.8*HlP+T(NETA)*0UB*{l,40.5*DTH*DUBj-HEA(IS) 

196. 



CTE8T(NETaW<1. + 0TH*0UB) 

197^ 



CHEPaCTE*C3EP 

19fl, 



IF (XI(I3)i 492,492,495 

199. 


492 

IF(KR(6)-1) 493,494,494 

20 n. 


493 

DUE0GEB-RH0EnS)/DUES*(CGFP-CHEP)*C3*VMUE{ISi*C0NJ 

20 J.' 



UE06E«8QRT(1 .♦2.t>0UE0GE*F(|,NETAh 

202, 



GEPaO. 

20S. 



GO TO 499 

204. 


494 

GPPa(CGP(2j-CGPn UCTE*(CsPP(2)-C3PRn )n/f3F(2)-SF(| h 

205, 



DUEDGEaGPP*DUM*0UM«F(l,NETA)*CONJ 

206. 



UEDGEaSaRT(l.tDUEOGE*F(l,NETA)) 

207, 



GEPbO, 

208. 



GO TO 499 

209. 


495 

UEDGEeSQRT(l.*2.*CONJ/UE{l3)*(CGE-CHE)/UE(I3i ) 

210, 



GEPbDUM»UE(IS)*CGEP*UEDGE 

211. 



OUEOGE3DUM/UE(131*(CGEP-ChEP)*CONJ 

212.‘ 


499 

OUFaOUEOGE/UEDGE 

215, 



CGEaCGE*GE(ITEM) 

214, 



CALL LlNCER 

215. 



CALL ETIMEF(ZEIT(2) ) 

216. 



IF(kQ(10).GT.0) call TRHBl(2) 

217. 



CALL ETIMEF(ZEIT(3n 

218, 



TTVCal.O 

21«. 



Mb116 

220, 



MXal 

221 , 



DO 120 lal.NETA 

222, 



LBO 

223? 

C' 


■UPPER LIMIT 13 max number OF SPECIES (MXNSP) LAST DIM pN 

224^ 



OO 59 MMti, 7 

225. 



MaHA'MX 

228 • 

C' 


■UPPER LIMIT CORRESPONDS Tp DIMENSIONS ON AM APPAV 

227. 

C' 

• m*«m 

■LOWER limit is UPPER LIMIT • (2«MXNSPti 1 ♦4/Mxnsp ) 

228; 



DO 59 Na 98,123 

229, 



L»L+1 

230. 



PREG(L)aAM(M,N) 

231. 


59 

AM(m,N)bO. 

232, 

c 


TEST TO BYPASS COMMANDS ThAT CANNOT BE PERFORMED AT FTAfn 

233. 



IF tl - 1) 60,60,55 

234, 


55 

CALL IMONE 

235. 



IF(kiJ( 9),NE.O) CALL TVCMl 

236. 



iFtKQdO) .GT.O) CALL TRMBl(4) 

237. 

c 


COMPUTE STATIC ENTHALPY AnD DETERMINE STATE OF GAS 

238. 


60 

CIO a C7 * F(2,I) 

239 



C13 a C7 * F(3,n 

240. 



HP a G(2,I) ♦ F(2.I) * C13 

24).- 

c 


EVAL GROUPINGS WHICH ARE USED AT I-l AS WELL AS AT I 

242. 


75 

CALL ICOEFF 

293. 



lF(KQ(9i.NE.O) CALL TVCCOE 

244, 



if(kq(ioj,gt.o) call TRMBL(3) 

295. 



IF Cl - 1) 100,80.100 

246,- 

c 


DLPK,TCW,VLNKW,DLPH, AND Yl NEEDED ONLY FOR CARBON problFM 

247. 


80 

IF CNSPMl) 95,95,85 

248. 


85 

DO 90 Kal,NSPMl 

249, 



WAllJCK) a CK6CK) 

250. 



VJKW(K) a CK6(K) / C3 

251, 


90 

CONTINUE 

252. 


95 

WAlLO a C32 

253. 



QW a C32 / C3 
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25u: 


TPWALL n TP 

255. 


MX0MAT2J-1 

256. 


GOTO 105 

257. 

c 

BACK TO CONSERVATION EQUATIONS 

258. 

lOO 

call ionly 

250. 


IF(KQdO) .GT.O) CALL TRMBl(5) 

260,‘ 


iFCKQCOj .NE.Oj CALL TVCI 

261. 

i05 

IF (KRdTji 120il20,llS 

262, 

1 10 

F0RMAT(21H all the COEFPlclENT8/dXlP12ElO,3n 

26S. 

115 

HRITECKOUT. 110]C1.C2.C3,C4>COEEOV.COEFQV 

26«; 


IX ■ - 2 

265, 

i20 

M«MAT1J4I-MX 

266. 


DO 122 Ib2.4 

267. 


00 122 J«1,MNLE0 

268.' 

?22 

AM(I.J)bO. 

260, 


ENL(4)«-(ALPH*UE0GE-F(2,NETAi) 

270. 


aM( 4> licUEOGE 

271, 


AM{4,MAT1J)«-1. 

272. 


CALL LIAD(-1,4,NETa-1,ALPH*0UF) 

275. 


ENL(3i«-P(2» n 

270. 


AM(3,4)al. 

275. 


IF(KR(5)-2) 123,121,123 

276. 

121 

ENL(2jaF(i,NETA j»PEOGE*TTvC 

277. 


CALL LIA0(-1,2,NETA-1,-1.) 

278. 


CO TO 124 

270. 

123 

ENL(2)aCBAR*(FC2,NETAj-(ETA(NETA)«ETA(KAPOA) (5,NETAn-F(2,KAPPA 

280.' 


li 

281 . 


IF(KR(5) .EQ.O) ENL(2)aCBAR*F(2,NETA)-F(2,KAPPAi 

282, 


AM(2,KAPPA+3)al . 

283, 


AM(2,HATlJ)a-C8AR 

284. 


1F(KR(5) .GT.hCALL LI AO (»i , 2,NET A+NE T A,»2, C8AR* t ET A (NET A) -ET A IK APPA 

285, 


1))) 

286. 

i24 

CALL ETIMEF(ZEIT(4)i 

287.' 


IF (ITS - n 125,125,145 

288, 

i25 

DO 140 KPlfNSP 

280: 


IF (LEFS(K)J 130,130,140 

200, 

1 30 

1F(LEF(K1) 140,140,135 

291, 

i35 

EASE P .05 

292. 

?«0 

continue 

293, 

145 

IF(KR(19)) 170,190,170 

294. 

l70 

continue 

295, 


WRITE(K0UT,175) 

296. 

i75 

FORMAT ( 2X2 IHOEBUC FNLE,5NlE,SPNLE) 

297. 

iflo 

EORMAT(/2X1P11E10,3/(12X1PIOE10,3)) 

298 


WRITE <KOUT,180) (ENL (I) , fsl ,NNLEOj 

290. 

C 

seek maximum error for each conserved QUANTITY 

300, 

ioo 

M82 

301. 


MMaMATlJ-i 

302, 


DO 200 lai.NRNL 

303, 


CALL ABMAX(MM-l,ENL{M),ENLM(n,IENLM(I)) 

304. 


IENLM(I) a lENLMdUi 

305, 


MaM*MM 

306. 

200 

MMaMAT2J-l 

307. 

c 

SOLVE REDUCED SET OF EQUATIONS 

308,' 


IF (KR(2),LT.0j RETURN 

300. 

c 

SCRUNTCH defined ROWS OF AM MATRIX TO THE TOP 

3io; 


DO 240 Mai. NAM 

311. 


ENL(M)aENL(Hfl J 

312, 


DO 240 Jal.NNLEQ 

313. 

240 

AM(H,J)aAM(MAl, J) 

314. 


iF(KOdO).LE.O) GO TO lOOl 

315, 


DO 1000 Ma4,NAM 

316. 

looo 

AM(M,3)tAM(M,3)7ENL(M)/F(5,l) 

317. 

liioi 

CONTINUE 
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318, 

C 


the following routine rearranges columns of the now rectangular 

31«»' 

C 


am matrix, according to LAR.lNVERT8((AM(I,J),Js3,NAH),Ta{,NAH) AND 

32ft. 

c 


multiplies the inverse times the remaining columns of am matrix 

321. 

c 


and times the enl. 

322J 



call ETIMEF(ZEIT(5)i 

325. 



CALL RERAY{NAM,AM,NSPAl,ENU»l*LAR,lX,123,EQT,EQT(12flj,E0TC247), 

32u: 



1 EQT(370),EQT(493)) 

325. 



call ETIMEF(ZEIT(6)) 

326, 


244 

IF(KR(17)) 245i265.2aS 

327. 


245 

CONTINUE 

328, 


250 

FORMAT(2X1P11E10.3) 

32< 



WRITE(K0UT,255) 

350. 


255 

FORMAT(2X18HOEBUG FlE,GLE,SPLE) 

331, 



WRITE(KOUT,250 Jfle.gle 

352, 



IF CNSPMli 265,265,260 

333, 


260 

WRITE(KOUT,250) ((SPLE(I*K)»Kal,NSPMn,l 3 l,MAT 2 I) 

334. 

C*****8URFACE OPTIONS TREATED IN RNLCER nilTH REDUCED NONLINEAR SET 

335. 


265 

CALL ETIMEFCZEITfm 

336, 



call RNLCER 

337, 



CALL ETIMEF(ZElT{8i) 

338. 

C 


determine maximum nonlinear ERRORS 

33«>, 

C 


equivalence ENLM to FNLEM, GNLEM, and SPNLEM 

340. 


545 

do 60S Ial,NRNL 

341, 



IF(ABS(ENLM(I))-AaS(DRNL(l))) 600,605,605 

342. 


600 

ENLM(I) 4 ORNL(I) 

343, 



IENLM(I) ■ 1 

34U, 


605 

CONTINUE 

345. 



VNORM«AMAX1(0.1#A8S(BETA))*ALPH 

346, 



ENORMaAMAXl ( 1000.* ABS (G( 1 « NETA) -G ( 1 , 1 ) ) 1 

347. 



ENLM(l) m ENLMm/VNORM 

348,' 



ENLM(2) a ENLMC2)/EN0RM 

344. 



CALL A0MAX(NRNL»£NLM,ENLMM,INLMM) 

35ft. 



ENLMM a ENLMM/10. 

351, 



ENLM(1) a ENLM(1)*VN0RM 

352. 



ENLM(2) a ENLM(2)*EN0RM 

353, 



ELMM s ABS(ELMM) 

354. 



BIP a KIP 

355. 



ENLMM s ABSCENLMMi ♦ 3. • BIP 

356, 

C 


EVALUATE NONLINEAR CORRECTIONS FROM THE REDUCED SET 

357, 



DO 615 Ibi,NaM 

358, 



L a LAR(I) 

35P' 



OVNLCL) a ENL(I) 

360, 



DO 615 Kal,NRNL 

361, 



J a K ♦ NAM 

362, 


615 

OVNL(L) a OVNL(L) • DRNL(K) * AM(I,J) 

363. 



DO 620 Kal.NRNL 

364. 



I a NAM « K 

365, 



J a LARCn 

366, 


620 

DVNLIJj a DRNL(K) 

367, 

C- 


-recycle if alph wants to go negative 

368. 



IF(0VNL(1 j+0.9*ALPH) 626>626>629 

364, 


626 

NULbO 

370. 



DO 627 KaNUL.NSPMl 

371, 



WALLJ(K)aVJKW(K)*C3 

372. 


627 

ENLCK+117)aO. 

373, 



LIMbNAM*! 

374. 



DO 628 Ib2,NNLEQ 

375, 



DUMaAM(I,l)/AM(l,l) 

376. 



ENLn)BENL(I)-ENL(n*DUM 

377, 



DO 628 JaLIM,NNLEQ 

378. 


628 

AM(I,J)aAM(I,J)-DUM*AM(l,J) 

379. 



ENLCliao. 

380. 



DO 631 JbLIM,NNLEQ 

381. 


631 

AMIlf J)aO. 


I 
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38?; 


iTSsITSfl 

383. ■ 


EASE 0 AM1N1{EASE,0.2) 

38«. 


IF(IT8-51) 244,244,850 

38S, 

620 

CONTINUE 

386. 


•EVALUATE LINEAR CORRECTIONS 

387, 


00 630 Iol,MATlI 

388, 


DO 630 JB1«MAT1J 

380. 

630 

FLECn ■ FLE(I) - DVNL(J) * BAl(l,jj 

30n, 


JJ B MATIJ . , 

391. 


DO 635 JB1,MAT2J 

302. 


JJ B JJ ♦ 1 

393, 


DO 635 Ial,HAT2I 

394. 

635 

GLECli a GLE(I) - DVNL(JJ) • BA2(I,J) 

39S,- 


CORAR{1)bDVNL(1)/*LPM*0.5 

396, 


LbNETA . 

397. 


jBHATiJf2 

30B. 


DO 640 Ib2,NETA 

390. 


CORAR(I)bDvNL(J)/AMAX1(10000.,G(1,NETA)) 

aoo. 

640 

JaJ+1 

aot , 


IF (N8PH1) 665,665,645 

ao 2 . 

645 

DO 660 Kb1,N3PH1 

ao3. 


DO 650 Jb1,HAT2J 

404, 


JJ 8 JJ ♦ 1 

405, 


DO 650 Ib1,MAT2I 

406. 

650 

SPLE(I,Kj 8 SPLEn,Ki . OvNL(JJ) * BA2(I,J) 

407," 


J8MaT1J*K*MAT2J+2 

408. 


DO 655 Ib2,nETA 

400, 


L a L ♦ 1. 

410. 


CORAR(L)bOVNL(J) 

411. 

655 

JBJ+I 

412, 

660 

continue 

413. 

665 

CONTINUE 

414; 


lP(EA3E-0,2) 673,670,670 

415, 

670 

IF(0,35tCORAR(ICORM)/CORK4) 671,675,675 

416. 

671 

BUMPbBUMP*2.0 

417. 


GO TO 675 

418. 

673 

IF (AH3(1.0-CORAR(IcaRM)/CORMA)»0. 25) 674,674.675 

410. 

674 

BUMP88UMP/2. 

420. 

675 

CALL A8MAx(L,C0RaR,C0RMA, ICORM) 



IF (KR(17)) 680,680,685 

422. 

680 

IF (KR(19)) 690,705,690 

423. 

685 

CONTINUE 

424. 


KR(17J a KRC17) - 1 

425." 

690 

CONTINUE 

426, 

695 

FORMAT(2X38HOEBUG CORRECTIONS RNL,NL,FL AND GL.SPL) 

427, 


CALL ETIMEF<ZEIT(9)) 

4'28, 


WRITE(K0UT,6R6) jiZEIT 

420. 

696 

F0RMAT(5X33HTIME3 BEFOR AND AFTER /6X RHCMEMISTRVqX 

430. 

1 13HERR0RStMA,T9IX9X0HINVER3I0Nl2X6HRNLCERl 1X3HNOW/10P10.4) 

431, 


rtRITE(KaUT,695) 

432. 


WRITE(KOUT,250)ORNL 

433. 


WRITECKOUT,250)0VNL 

434.' 


WRITE(KOUT,250)FLE,GLE 

435. 


IF (NSPMl) 705,705,700 

436; 

700 

WRITE (KOUT, 250 ) ((SPLE(I,K),K81,n3PM1 ), 131 ,MAT2!) 

43T. 

705 

CONTINUE 

438, 

C 

CORRECT PRIMARY VARIABLE3 

439. 


OUM a ,05 / BUMP 

440, 


EASEaAHiNl (1.5«EASE, 1 .0,OUM/AB5(CORMA)) 

441. 


IF(IT8.EQ,2) BUMPbAMAXI (Bump, ,02/ABS(CORMA) ) 

442,' 


IF(KQ(10),GT.0) EASEbAMINI (EASE, ABS(F( 3, l)/(DVNL(3)+1 .E-30)*0,5) ) 

443. 

710 

IF (KR(13)) 720,720,715 

444, 

715 

OUM 8 KR(13) 

445. 


EASE B AMINKDUM / 10,, EASE) 
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ttufc;; 

720 

IF (EASE • 1.0) 725,740,740 

ao7. 


DO 730 1b1,2S3 

UttR. 

730 

FLE(l) 8 FLE(I) * EASE 

a«Q. 


DO 735 181,123 

uso. 

735 

OVNL(I) 8 DVNL(I) * EASE 


740 

CONTINUE 

ttS2. 


PIEASE 8 PIEA3E * (1. - EASE) 

453. 


IF (TFZ) 745.750,750 

454, 

745 

TFZ 8 EASE * OTEMP - TFZ 

455, 

750 

NULsO 

456. 


0FWE8F(l,NETA)-F(t, 1 j-KM(5)/F(2,NETA) 

4 57," 


DO 740 I81,NETA 

45R. 


NIbNETA+I 

454 . 


N2IBNETA7NI-2 

460, 


F(2, l)»F(2,I)+0VNl.(I+3) 

461, 


F(4,I)8F(4,I)7FLE(N2I) 

462. 


IFOl) 760,760,765 

463, 

760 

F(1,1)8F(1,1) ♦ DVNL(2) 

464, 


F(3,1)8F(3,1)+0VNI.(3) 

465, 


GO TO 770 

466. 

765 

F(1.1)8 F(1, I)*FLE(I-D 

467. 


F(3,1)bF(3,I)+FLE(NI-2) 

46S, 

770 

lpi»matij+i+i 

464^ 


DO 785 KbNUL,NSPH1 

470. 


IF(I-NETA) 772,771,772 

471, 

T71 

SP(lf I.K) b8P(1,I,K)7SPLE(1,K) 

472, 


GO TO 773 

473. 


8Pa,I,K)oSP(l,I,K)70VNL(LPI) 

474, 

773 

SP(3,1,K)88P(3,I,K)*SPLE(NI,K) 

475. 


IFCI-l) 775,775,780 

476,' 

775 

SP(2,1,K)8 SP(2,1,K) ♦ OVnL(LPI-I) 

477 


GO TO 785 

47R. 

780 

8P(2,I,K)8SP(2.I.K)fSPlE(I.K) 

474. 

785 

l,Pl8l,PI*MAT2J 

480. 

740 

CONTINUE 

481, 


ALPH8ALPH+0VNL(1) 

482. 


IF(KR(14).GT.O)WR1TE(KOUT;250)(F(2,J),J81,NETA), (G(1 , J) , JbI , NET A ) , 

483.' 

1 ((SP(l»J,K),Jal.NETA),KBl.NSPMn,*LPH 

484. 


IF (ITS - 44) 850,840,850 

485, 

840 

IF (1777 - 777) 845,850,845 

486.' 

845 

1777 8 777 

487 


ITS a 30 

488. 

RSO 

CONTINUE 

484, 


IF(kQ(10).GT.-1) RETURN 

440,' 


IF(KO(10),LT.-10) RETURN 

441 


RETHMa8-C3*VMUE(I3)/VMU(NETAj*RHoE(I3)*UE(IS)*0FWE 

442. 


IF(RETHMO.GT.RETR) K0(10)o-10 

443,' 


IF (RETHMO.GT.RETR) STURB b 3(IS) 

444,' 


IF(RETHM0,LT.RETR) KQ(10)»-l 

445.' 


RETURN 

446, 


END 


4-29 



B05C, RNLCER 


1 . 

2 .‘ 

«. 

10. 

h; 

12 . 

13.' 

J", 

15. 

16, 
!▼. 
Ifl. 
I”.' 
20, 
2t. 
22 . 
23, 
20 . 

25. ‘ 

26. ■ 
if. 
2fl, 
20. 
3«, 

31. 

32. 

33. 
3«, 

35. 

36. 
3T, 

38. 

36. 

00 , 

01. 

02 ,' 

03. 

4a, 

05. 

06. 

08. 

06 . 

51. 

51. 

52 : 

55. 

50 , 

55. 

56. ' 

57 . 

58 . 
56 . 
60, 
61. 


C B05C 

SUBROUTINE RNLCER 

dimension dOJ5NL(123.11>WaLUQJ(1) 

COMMON/BLOCOH/ MDaC 60). MOB( 60 ) , NSPEC , FR ( 60 . 1 5 ) , W ( 5 5 , LEF ( 8) 

1 »LEFS( 8) ,PIE#SE.LEFW( 8i,L2.L3 

COMMON/BUMCOM/ BUMP,C0RMA,E43E» 1C0RM,W00T,TFZ. I777,DTF‘<P,KIP, IX 

COMMON/COECOM/ C5,C6,C7,C8,C6,C10.Cll,C12.C13.Cl'0,C15 

1 ,C16,C17,C16,C16,C20,C21,c22,C23,C20,C25,C26,C27.C28,C26:c 30.C31 ,C 
252,C33,C3a,C35.C36,C3r.C38»C39.C«0,COi.C02,ca3,caa,CO5,CO6.Ca7,CO8 
3,C06,C50|CS1 iC 52.C53.CS4.C55,C56,C57,C5S,C59,C60.C61 ,C62,C63,C60,C 
065,C66,C67,C6e,C66,C70,C7l,C72,C73,C7a,C75,C76,C77,C78,c76,C80,C8t 
5,C82.Ca3.Ca4,Ce5,C86,C67.CB8 

COMMON/COECQN/ CKl( 6)»CK2( 6).CK3( 6)»CK0( 6),CK5( 6),CK6( 6) 

1, CK7C 6),CK8( 6),CK6( 6),C«10( 6),CKll( 6),CK13t 6),C<)3f 6) 

2, CK10( 6),CK15( 6)«CK16( 6)>CK17( 6),CK18( 6).CK16( 6),CK20( 6) 

3, CK2K 6),CK22( 6),CKK1( 6. 6),CKK2( 6. 6 ) , Xm 1 5 ) , XG (5 ) , XSP (5. 7) 

0, CKK3( 6i 6) 

CQMM0N/CRBC0M/HCARB,EMIS»STEF» ADUM,BDUM,CDUM,hTEF,MMAT,EMI3C.EMIST 

1, HPG»A3UC3)iB3U(3)#HPVG(3),HCHAR(I),EMIV(3),KS(O0),ISU 

COMMQN/EOCCOM/ PEfOO, l),PTE(Oft, 1).3PEf 6.00, h.tJUES, 

lUE(OO) ,RHOE(O0), VMUE(00 ),tE(00),UEDGE,DUEDCE.D2UEOG, VMWE.’cGE.’CRO 

2, D3IP(O0),I0SIP,TTVC,TVCC{O0),HEA(O0),SFC20),CSt20),CSPRf20). 

3 CG(20),CGP(20),SREF.GEP,NEN 

C0MMQN/EP3C0M/ELC0N, YAP.ClNUM.SCT.PRT.REO.DVS. RHOVS.PI .PTM.CL . 

1 EPSAn5),EPSl.ELO5)#0PIfl5,2),0EPC,TREF,RET6 
COMHON/EQPCOM/RB(60.3)»RC(60.3).RD(60.3).RE(60.3).PF(60,3) ,RG(60,3 

l),TU(60,3),FF(60),FFA,IFC(60),ATA(8),AT8(8),ATC(R),WATffl),RA(60,3) 

5 » 

2 KAT( 0),IR{ 8j,IZ.KZ(10),LAMl( 60 ),P,Z.Tk( 8, 8),VN( 60), 

3 VNU( 60, 8),ITFF,KR2,HCH,NCV,WM,WTM( 60),YYYt 60),YW( 60),GG( 60) 

0 ,TQ( 8, 8),EP0VRK,3IGNA,8A3M0L 

COMMQN/EQTCOH/3IP,HIP,EEL,EENL,FLIO,CPF,IRE,IER,AA,IITS,TN,Il,1IT. 

1 MODE,HMELT,8HELT,TMAX,TMiN,mELT,3UMN,SUML, WS.WSS.BX, ISP?, ISPO, 

2 I3P,KKJ,3VA,3v 8,3VC,SV0,SUMC,FFF,CMF,EP,RV, IFCJC.WTG.WTl, , JC.HHG, 

3 CCPG,TTMIN,TTMAX,L7,L6,IB( 9),EB( 8),E8l( 8 ) , a tl 0 , 1 0 ) , PB ( i o ) , 

0 IP( 60),ALP( 8),FNU( 8),GAMH( 8),GAMF( 8),Sl.AMt 6),DY( 60),RVS, 

5 CP( 60),HH( 60),3B( 60),TC( 60),VLNK( 60), E( 60).PNUS{ 8), 

6 BC( 8),BLNK( 8),BY( 8),!bC( 8),BE( 8),JZ( 0) 

COMMON/ERRCOM/FLE( 03 ) ,GLE (30) , SPLE 1 30 , 6) ,ELA (253) .FLEM.’glEH 

1,SPLEM( 6),ELM(10),ELMM,IfLH,IGLM,I3PLMC 6) , NEI.m, ILMM.dfl (03) 

2, DGL(30),OSPL(30, 6) ,FNUE { 18 ) , GNLE ( 1 5 ) , 3PNLE ( 15 , 6),ENl.(j?3) 

3, FNLEM,GNLEM,SPNLEM( 6), ENLMM, IFNLM, IGNLM, I8PNlm{ 6) 

0, NENLM,INLMM,0FNL<18),0GNl(15),03PNL(15, 6),DRNL( 8) 
COMHON/ETACOM/ETA( J5),DETaC15),DSO(10),OCU(1o), 8| (IO),P2nO) 

1, LAR(123),BAl (03,18),BA2(30,15) 

COMMON/FLXCOM/DELQW,OELJW( 6),HALL0,WALLJC 6),GW,VJKW( 7),TPwALI. 
COHMON/HISCOM/Cl ,C2,C3,C0, ALPHO,8ETA,ZM(0, 10) , ZG ( 0 , 1 0 ) , ZSP ( 0 , 1 0 , 6 

1 ),X1(00),HF(15,51.HG(15,3),H3P(15,3, 6 ) , HALPH , HUE , HHUE , HFW , nLX2 

2, C3M(O0),BETAM(00) 

COMMON/ I NTCOM/ KR(20),KIN,KOUT,M4TII,MAT2i,MAT1J,MAT2J,NETA, I, I3,N 
ISy IT,NTIME,NSP,NSPM1 ,NAM,NLE0,NNLEQ,NRNL, its, kappa, C3AR, case (15) 

2, B(B), MWE,NQN,KQ(10),ITEM,N1TEM,KR17,N8T,NBT2, IDENT.KRO(aO) 

3, KAUX0, JTIME, J3PEC,HD(3) 

C0MM0N/N0nC0M/AM(123, 123),OVnL(123),TCW, 

1VLNKW,DLPH( 7),0LPK( 6, 7),DTHW,0TKW( 6),FLUXJ8( 7) 
COMMON/PRMCOM/TIME( 50 ) , PRE (OO ) , PTET ( 50),GE( 50 ) , S ( OO ) , POK AP ( OO ) 

1 , RN03E, VKAP,N0I3C, I0lSC(a0),NSD(S),MSD(5 ) , ITf( 50) , IPRE.RADNO.CONE 

2, RA0FL( SO),RADRCOO),RAOS(00),IRAO 
COMMON/PRPCOM/PR(15),T(15),RHO(15),3C(15),CAPC(15),OR(15),H(!5) 

1,CPBAR(1S),VMW(15),PH1K(IS, 6 ) , ORHOH , ORHOK ( 6),ZK( 6),I)ZKH( 6), 0 

2MU3K( 6),0MU0K( 6),DTK( 6),0PHIKH( 6),DPRK( 6),DSCK( 6).DCAPCK( 6) 
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62 . 

6 «. 

65. ; 

66 . 

6R. 

b'», 

7n, 

71. 

72. 

73. 

75. 

76, - 

77. 

78, 
7«». 
80 
81. 
82^ 
03. 
8«, 

85. 

86 . 
87.' 
80. 

V' 

60 . 

91. 

92. 

93. 
9a; 

95. 

96 . 

97. 

98 . ' 
90 . 

ion. 


101 . 

102 , 

103. 

lOfl. 

105. 

106. 
107.' 
100 , 

109. 

110 . 

111, 

112 . 
113. 
119. 

115. 

116, 
117. 
110 , 

119. 

120 . ' 
121 . 
122 . 
123,‘ 
129. 
125. 


3>DHTILK( 6)>DQRK( 6).DCPBK( 6)«DCPTK( 6)»QHU12K( 6^,DZKK( 6. 6) 
9,0PHIKK( 6. 6), 0MU9H#DMU3H,DHTILH, VMU12,CT.CTR,CPm.HTlL 

5, VMU3,OTH,OCAPCH,OPRH,08CH»OORH,DCPBH,OCPTH»OMU12H, VMU(15). RHOP 
6(l5)f PMIKP(l5)fHP.TP,ZKP( 6) , VMU3P. VMUaP, HTILP, CRHO{ 1 9 ) , GMR ( 15 1 
COMMON/TEMCOM/SPDUMt 6l «O eR ( 90 ) . OOMMl ( 15) , SLOPE ( 15) , PEDUM ( 15 j 
l.SDUMl (90),3DUM2(90),PWDUH(90),XICON(90),PWCON(90).PWINIT( 1 1 
2,X1INIT( 1)>DUDS( 90) 

C0MM0N/VARC0M/F(9,15),G(3,15),SP(3,15, 7),aLPH 
COHMON/WALCOM/FM(90, l),Tw(90» l)»HW(90, 1)«SPM( 6.90. 1) 
1,RHOVW(90, 1)|FLUXJ( 3.90, 1 ) , IHW, I TW , IF W , I SPW , I RHOVW , I FLUX J 
equivalence (AM(139),DajRNL(l)). (HALLO. HaLLQJ) 

C evaluates reduced set of OQNL and OJNL. N0TE.‘..D0NL followed by 

C OJNL IS eouivalenceo to oqjnl for convenience of following loop. 

C ALSO. THE REDUCED SET DOJRNL IS EQUIV, TO AMfij FOR STORAGE ECON.’ 
DO 275 IPI.NRNL 
H a I NAM 
L ■ LAR(M) 

00 275 KBl.NSP 
KNPK4116 

DQJRNL(I.K)aAM(KN.L) 

DO 275 jsl.NAM 
JJ a LAR(J) 

IF (I - ij 275,270.275 
270 ENL(KN)aENL(KN)+AM(KN.JJ)*ENL(J) 

275 OQJRNL(I.K)aDajRNL(l,K)-AM(KN.JJ)*AM(J,M) 

RHOVS a Cl * F(l.l) ♦ HF(i,5) 

DO 278 Kai.NSP 

2^8 WALLQJ(K)«NAlLQJ(K)4ENL(K«1 16) 

IF(KR(9)-2) 315,285,115 
285 DO 290 L«l,3 
290 W(L) " FLUXJ(L.IS.IT) 

C PREPARE OQJRNL AND WaLLOJ FOR SURFACE MaSS BALANCE 
295 W8UM a W(lj ♦ W(2) f W(3) 

00 310 K«2,NSP 

OQJRNL(l.K) a OQJRNL(l.K) / Cl 

WALLJ(K - 1) a WALLJ(K - i) OOJRNL(l.K) * PHOVS • D0JRNL(2,K)' * 
IG(I.I) 

00 310 KKal.NRNL 

310 WALLJ(K - 1) a WaLLJ(K - 1) - OOJRNL(KK.K) * SPCl.l.KK . 2) 

315 IF (KR(16) » n 395,390,320 
320 IF (KR(17)) 390,190,335 

325 F0RMATC52H DEBUG OQJRNL(NRNL.NSP) BY ROWS, OELO W (5 ) , W ALLO J ( 5 ) / 

1 (8X1P10E10.3)) 

330 F0RMAT(35H DEBUG DQJNL (NnLEQ, NSP) ROW BY ROW / (8X1 Pi OE 1 0 . 3 ) ) 

335 WRITE(KOUT,330)((AM(K,I),m»U7,KN ),Ib1,NNLE0) 

390 WRITE(K0UT,325) ((00JRNL(I,K),Kal,N3P),Ial,NRNL), (ENL(K).K 
lall7,KN), (WALLQJCK),K«1,NSP) 

IX a - 2 

395 CONTINUE 

IF(KIP) 396,396,375 

396 IF(KR(9)-2) 397,355,395 

397 ORNL(l)aFW(lS,lT)-F(l,l) 

DRNL(2)»0. 

IF(NSPHi) 350,350.398 

398 DO 399 Kal,N3PMl 
0RNL(K+2)8SPW(K,I3, ITj-SP(l,l,K) 

399 0RNL(2)aDRNL(2)+DRNL(K62)*0TKW(K) 

350 IF(kR(11)) 351,351,352 

351 DRNL(2)a(TW(lS,IT)-T(l)-DRNL(2))/0THW 
GO TO 595 

352 0RNL(2)pHW(IS,IT)-G(1,1) 

GO TO 595 

355 IF (KR(il) - 1) 375,365,360 
360 IF (KR(ii) - 3) 370,375,370 
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IZhJ 

365 

K0(1) 82 

1ST. 


0RNL(2)bHW(IS# IT)«G(l,n 

12«. 


HlP8(Gn,l>+E4SE9(HW(13,IT)-C(l.nn/i.8 

12R, 


GO TO 360 

130. 

370 

K0(1)b1 

131. 


IF(T(1)-I000,i 374,374,372 

132. 

372 

IF(EASE-,05) 360,374,360 

133^ 

374 

TW( 13, IT)8AMAXI(T( 11,1500.) 

IS". 

375 

HW(l3,lT)8Cn» li7CPB4R(l)*EASE«(TWa3, IT) -TCI)) 

135, 


T(l)9T{l)+eA3E*(T«CI3,ITi-T(in 

13<>, 


KlPaMAXO(KIP-l.O) 

137' 

376 

KOCllBO . 

13«, 

380 

K0(6) 8 2 

13q' 


K0(4) 8 0 

1"0, 


IF (KRC7))385,385,390 

1«1. 

385 

CALL EOuIL(KO,0.,PE(13,IT)1 

1«2, 

390 

K0(6) s O 

1«3. 


FW(I3,ITi 8 (RH0VW(I8,IT) - HP(l,5)i / Cl 

i«a, 


IF(KR(11)-1) 391,392,391 

1«5. 

391 

DRNL(2)B(HW(I3,IT)-G(t,l))/EASE 

!«#>.■ 

392 

09NL(n8FWnS,IT)-F(i,l) 

147, 


if(nspmi) 595 , 595.393 

l«fl. 

391 

00 394 KBl,M3PMl 

14R,' 

39a 

0RNL(K+2)8(SPW(K,IS,1T)-3P(1,1,K))/EA3E 

150, 


GO TO 595 

151. 

c 

KiPal IF USING assigned TEMPERATURE ON ENERGY BALANCE 

152, 

395 

KIP 8 0 

153; 


W(3}aRHQVS-W(2) 

154, 


K9RbKR(9)«2 

155. 


GO TO (450, 460, 490, 400, 396), K9R 

156, 

396 

NOOTaO. 

157, 


HPGbHTEF . 

ISfl. 


AM(l,S)aO. 

159, 

aOo 

HMAT b htef 

160. 


EM13 8 EMIST 

161, 


IF (ITS - 1) 465,465,405 

162. 

aos 

IF (TF2) 465,465,410 

163, 

alo 

IF (AB8(T(1) - TF2) - 10.) 465,435,435 

164, 

al5 

IF (OTEmP • DUM2) 440,440,420 

165. 

420 

IF (DUMl * 20. ♦ ROOT) 425,425,430 

166, 

a25 

TFZ a T(l) - 50, / OTEMP • ATEMP 

16T; 


BUMP B l. 

16fl. 


GOTO 435 

169, 

a30 

TFZ a T(l) 

170. 

ul5 

TWdS.IT) B TFZ 

171, 


GOTO 445 

172, 

440 

TW(IS,IT) 8 T(l) + SO, / dTEMP * ATEMP 

173. 


BUMP 81. 

17U. 

445 

KIP 8 1 

175. 


GO TO 490 

176, 

450 

DRNLn)8TW(IS,IT)-T(n 

177, 


AM(1,4)80. 

I7fl. 


AH(1,5)8DTHW 

179, 


DO 455 Kal.NSPMl 

180. 

455 

AM(1,K+5)8DTKW(K) 

181. 

460 

HMATaHCARB 

182, 


EMISbEMISC 

163. 

4 65 

TFZ 8 0. 

18 a. 


OUMl 8 STEF • EMIS * (T(l)) • * 3. * C3 

185; 


09NL(2) b - NALLQ ♦ RHOVS * (HHaT • G(1,D) - OUMl * 

186. 

ll3)*C3+W(2)*{HP0-HM4n 

187: 


DUM2 B DRNL(2) 

168. 


AM(2,4) B OOJPNLCl.l) ♦ Cl * (6(1,1) • HMAT) 

189. 


DUMl a OUMl * 4, 


Tft ) ♦ RAOSf 
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I’fl. 

191. 

102. 

195, 

19a. 

I9s; 

J9h. 

197, 

I9fl, 

19<J. 

200 .’ 

201 , 

202 . 

203 ; 

204 , 

205, 
20h, 
207, 

20a. 

209, 

210 . 
211 , 
212 . 
213^ 

214. 

215. 

216. 
217, 
21B 

219. 

220 . 
221 , 
222 . 

223 , 

224. 

225, 

226. 
22T; 
228, 

229. 

230. 

231 . 

232. - 

233. 

234. 

235. 

236. 

23^ 

238. 

239. 

240. ’ 

241. 

242. " 

243. 
24U. 

245. ' 

246. 

247. 

248. ' 
249; 

250. 

251 . - 

252 . 

253. 

254. 

255. 

256. ' 


AM(2*5) » 0OJ9NL(2»li ♦ OUMl * OTHtu * RHOVS 
00 470 K«1,NSPM1 

il70 AM(2iK ♦ 5) B DQJRNLfK ♦ 2,1) ♦ OUMl * DTKW(K) 
lF(KRC9j,EQ,7) GO TO 500 
IF(KR(9)-4) 510,475,495 
u7S DRNLCDb vlnkw 
00 472 Kbi.IZ 
JB-IR(K) 

PNU(J)bVNU{18U, J) 

IF (LEFCKj ♦ LEFW(K)) 471,471,472 
u7l FMU(J)bO. 

472 CONTINUE 

00 476 Kbi.IZ 

il76 0RNL(1)»DRNL(1)*YW(K)*FNU(K) 

4H(1,4) BO. 

OUMl B TCW / T(l) 

4M(1,5) b OUMl * OTHW 
00 477 KBi.lZ 

477 4M(i,5)b4M(1,5)-D1.PH{K)bFNU(1() 

00 480 Kal.NSPMl 
4M(1,K*S) a 0UM1*0TKW(K) 

00 480 KKsl,IZ 

480 4M(i,K75)b4M(1 ,K+5)-0LPK(K,KK)*FNU(KK) 

GOTO 510 

490 MOOT B C3 * EXP( (40UM * T«(IS,IT) ♦ BDUM) * TW(IS,IT) ♦ COUM) 
KlPaKlPtl 
WC3) a moot 
W(2) a 0. 

Win a 0, 

GOTO 295 

495 MOOT B C3 * EXP( (40UM * T(l) ♦ BDUM) * TO) ♦ COUM) 

4M(i,5) B WOOT * (40UM * 2, * T(l) ♦ BOOM) 

500 ORNL(nBK(S)-WOOT 
OUMl B 4B8(0RNL(1)) 

AMCl,4) a . Cl 
00 505 Kai,N5PMl 

505 4M(1,k ♦ 5i b 4M(1,5) • DTKW(K) 

4M(i,5) b 4M<1,5) * OTHH 
510 00 520 Kbi.nSPMI 

09NL(K+2)a-WALLJ(K)-RHOVS*(SP(l, 1,K)-T0CK,L3)«WTM(K) l+WfPlatYTMtK)* 
1 (TQ(K,L2)-T0CK,L3n 

00 515 KKal,NRN^. 

515 aM(k ♦ 2,KK ♦ 3) a OOJRNL(KK,K ♦ 1) 

AM(K+2,4)8AM(K+2,4)*Cl*(SP{l,l,K)»T0(K,L3)*WTM(K) ) 

520 aM(K t 2,K ♦ 5) B aM(K ♦ 2,K ♦ 5) ♦ RHOVS 

1 I B 0 

IF(KR(9j-3) 525,540,525 
525 IF(W(3}) 540,530,530 
530 DRNLC1)B(WOOT-W(3))/Cl 
W(3)sW00T 
00 535 Kb2,nRNL 

535 ORNL(K) a ORNL(K) « ORNLd) * 4M(K,4) 

II s 1 

540 IXX 8 IX 

CALL RER4Y(NRNL-II,4M(II*1,II*4),0,DRNL(II*1),1,0,1XX, 123,IP.4LP, 

1 FNU,GAMH,C4MF) 

IF (KR(9) ♦ KIP - 6) 560,545,560 
545 DTEmP b DRNL(2) * OTHW 
00 550 Kbi,N3PM1 

550 OTEmP b OTEMP ♦ OTKW(K) * DRNLIK ♦ 2) 

ATEMP 8 ABStOTEMP) 

IF (ATEMP - 50.) 555,560,415 
555 TFZ a - T(l) 

560 CONTINUE 
WD0TbW(3) 

595 RETURN 
ENO 
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U 

«. 

S. 

«>. 

u, 

1 ?, 

15. 

‘5, 

!«>, 

IT. 

IH, 

1’, 

20. 

21. 

22 . 

25. ' 
2 «.' 

T' 

26 , 

27. 

2 ». 

2 '*. 

30. 

31 . 

32. 

33. 

34. 

35. 

36. 

3fl. 

3 <>. 

an, 

“1, 

as. 

aa. 

"5, 

46, 

as. 

49. 

50. ' 

51. 

52. 
55, 

54, 

55. 
56 : 


57. 

58. 

59. 

60. 
61. ■ 


CBo6A 

SUBROUTINE LINGER 

COMMON/EOGCOH/ PE(40, lj,PTEC40, ij.’SPEf 6,40, li.'OUES, 

1UE(40),RH0E(40), VMU£(40) ,tE( 40),UEDGE,DUEOGE,02UE0G, VMHE,CGE,C90 
2,D8lP{40),IDSIP,TTVC.TVCC(40),HE*(40),SFC20).CS(20i ,CSPR(20). 

5 CG(20),CGP(20),SREF,GEP,nEN 

C0MM0N/ERRC0M/FLE( 4Sj»GLE(30j.SPLE(30, 6 ) , ELA 1 25S ) , FLEH, GLEH 
1 ,SPLEM{ 6),ELM(l<n,ELHM,lFLM,IGLM,lSPLM( 6),NEI.K, ILMM.OFLfajj 
2,D6L(30j,03PL(50, 6) ,FNLE { l«l ,6NLE( 15) , SPNLE ( IS , 6),ENLn25) 
3#FNL£M*GNLEM,3PNLE«( 6)» ENLNM/ IFNLM, IGVLM, ISPNLVG 6) 

4,NENLM,INLMM,DFNL(18),DGNl( 15)»03PNL(15, 6),0RNL( 8) 
'COMMON/ETACOM/ETAa5)»OETA(l5).OSQa4),DCUn4),Rl (14),82na) 

1, LAR(123),BA1C43,18),8A2(30.15) 

common/ INTCOM/ KR(20),KIN,KOUT»MATII,MAT2I,MAT1 J,MAT2J,NETA,I ,1S,N 
13»ITiNTIME»NSP,N 8PM1 ,NAM,NLEQ»NNLE0»NRNL, ITS,KAPPA,CBA9,CASE(15 j 

2, B(8)» MWE»NQN,K(J(10),ITEM,NITEM,KR17,NBT,NBT2, IDENT,KR9(aO) 

3, KAUXO, JTlM£fJSPEC,M0(3J 

C0HM0N/PRMC0M/TIME( 50),PRE(40),PTET{ 50),GE( 50),S{40),ROKAP(40) 

1. RNOSE, VKAP/NOI3C/IDI3C(4o)»NSO( 5),MSD<S) , iTFf 50 ) , I PRF , RADNC . CONE 

2, RA0FL( 50) ,RADR(40) ,RA03(40),IRAD 
C0MM0N/VARc0M/F(4, 15)»G(3,15),3P(3, 15, 7) ,ALPH 

C evaluate linear errors For momentum and energy 

NELM9NSP61 

NENLMbNELM 

NULaO 

00 400 I«1,MAT1I 
/lOO BAl(I,l)ao, 

DO «01 I«2,NETA 
IF(I-2) 4004,4003,4004 
4O0S IF(KR(10)) 4000,4000,4001 

4004 IF(I-NETA) 4002,4005,4002 

4005 IF(KR(10)-Ii 4002,4000,4002 

4000 DUM1bB(4) 

0UM2«B(5) 

0UM3«B(2) 

DUM49B(3i 

DUMSpBO) 

DUM691.0 
CO TO 4002 

4001 0UmIb8(3) 

DUM2«0, 

0UM3OBC1) 

OUM4»0, 

OUM5«1,o 

DUM6«0, 

4002 CONTINUE 

FLEa'l)«-(Fn,I-l)+0ETA{i-I)*F(2,I»l)+D3Q(I-l)/2.*F(5,I.n*DCUC 

1I-1)*(DUM1*F(4,I-1)+DUM2*f(4,I))-F(1,I)) 

MBl+NETA-2 

FLE(M)»-(F(2, 1-l )* 0 ETA(I -1 )*F(3, 1-l ) +DSQ ( I-l ) • f 0UM3*F t a.’i-i ) *DUM4* 
IF(4,I))-F(2,I)) 

M3M + 1 

00 403 KbNUL,N 5PH1 

3PLE(I,K)8-(3P(l,I-l,K)6DET4(I-p*3P(2,I-l,K)+DSnn-n*(0UM3*SPt3, 
1 I-l,K)tOUM4*SP(3,I,'<))-SP(l,I,K)) 

403 3PLE(M,K)b-(SP( 2, I-l ,K)+0ETA(l-n*DUM5*C.SP(3, 1-l ,K)»DUMfc*SP(5.I,K) 
1 )-SP(2,I,K)) 

MsI+2»NETa-3 

aOl FLE(M)b-(F( 3, I-l )+DETA(I-i)*DUM 5*(F(4, 1*1 )»0UM6*F(u, I ) )-F(3, 1 ) ) 
FLE(MAT1 I)b- 0UM6*(F(3,NETA)«ALPH*ALPH*DUEDGE) 
BAl(MATlI,l)a-2,*0UM6*0UC0GE*ALPH 
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62. 


IF(AB5(BA1(MAT11,1)).CT,0.) CALL HATSlfSAl) 

63^ 


0LEn)6»(G(l,NETA5-CGe) 

64. 


GLE(MAT2li»-0UH6*(6(a#NETA)-ALPH*GtP) 

65, 


IF(NSPH1)404,404.40S 

66, 

uOS 

00 402 KaliNSPHl 

67, 


3PLEn.Ki«-(8Pa,NETA,K)-3PE(K,lS,ITn 

6A, 


8PLE(MAT2I,K)«-3P(2,nETA,k) * 0UM6 

66. 

C 

determine maximum linear 5RRORS 

70, 

a02 

call ABMAX(M4T2l,3PLEa.K).SPLEM(K),lSPLM(K)i 

7i: 

a04 

call ABMAX(MATII,FLE,FLEM,IFLM) 

T2.' 


CALL ABMAX(MaT2I,CLE.GLEM,1CLM) 

75, 


ELMCl )«FLEM 



ELM(2)aGLEH*,001 

75 ; 


lF(N8PMn406,406,407 

76, 

n07 

00 406 K«3iNELM 

77 ' 

a86 

ELM(K)«3PLEM(K-2i*.l 

7fl. 

u06 

CALL A0MAX(NELR»ELM,ELMM,ILMM) 

76. 

C 

FORM PRODUCT OF A**-I AND LINEAR ERRORS 

80. 

^|66 

call MATSl(FLE) 

8t. 


OU 474 K«NUL»N8PMt 

02. 

U7ti 

CALL MAT82(8PLE(l.K)i 

03, 


RETURN 

04. 


end 
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1 . 

5. 

«. 

A. 

7.‘ 

fl, 

10 . 

H. 

12 , 

15 . 

1«. 

15. ' 

16 . 
IT. 
IS. 
10 . 
20, 
21 . 
22. 
25, 
20, 

25. 

26, 
27, 
2ft, 
20, 

30, 

31, 

32. 

33. 

3 «, 

35. 

36. 

37. 
3«; 
30. 

un, 

01. 

«2, 

03. 

uu; 

45, 

46. 

Ufl, 

40. 

50. ' 

51 . 

52. 

53. 

54. ' 

55 ; 

36, 

57. 

5fl, 

50 . 

60, 

61. 


CBo7a 

SUBROUTINE REFCON 

COMHaN/EOGCOM/ FE( 40 , 1 ),PTE(« 0 , tj.SPEC 6 . 40 , li.DUES, 

1 UE(« 0 ),PHOE( 40 ), VMUE( 40 ),tE( 40 ),UEDGE, 0 UEDGE. 02 UEDG, VMWE.CGE.COO 
2 .DSIPC 40 ), IOSIP,TTVC,TVCC( 4 O).HEA(UO),SF( 20 ),CS( 2 Oi ,CSPRt 20 i, 
3 CG( 20 ) .CGPtaoi , 3 REF,GEP,NEN,U 1 NF,PH 0 INF,HINF,PINF 
COMMON/HISCOM/CI .C 2 .C 3 rCfl.*LPHO,BETA.ZM(o, lU) ,ZG( 4 . 1 4 ) . 7 SP ( 4 , 1 u , 6 
I ).XI( 40 ).HF(lS. 5 ).HGn 5 .j)»HSP(t 5 , 3 . 6 ) . HALPH, HUE. HHUE , WFW, 0 LX 2 
2 .C 3 M( 40 j,BE 7 ftH( 40 ) 

3 »BETAV(flO) 

COMMON/ INTCOM/ KR( 20 ) .KIN,KOUT.MAT 11 .M*T 2 I.HaTIJ,MAT 2 J,NETA, I.IS.N 
13 . 1 T.NTIME.N 3 P.N 3 PM 1 .NAM.nUEO.NNLEO.NRNL. 1 T 9 . K APP A , Cfi AR . C ASF Cl 5 ) 

2 , B( 8 ), MWE.NON,kQ( 10 )» ITEM.NITEM.KRl 7 ,N 8 T,NBT 2 , IOENT , KRR ( RO i 

3 . KAUX 0 . JTIME. JSPEC.M 0 ( 3 ) 

C 0 MM 0 N/PBMC 0 M/T 1 HE( 50 ).PrE(<i 6 ),PTET( 50 ),CEf 50 i . 9 1 40 ) , ROK AP ( <I 0 1 

1 . RNOSE. VKAP.NOrSC. I 0 I 3 C( 40 ).NS 0 (S).M 90 ( 5 ) . ITFC 50 ) . IPRE.RADNG.CONE 

2 . RADFLC 50 ).RADR( 40 ),RAOS( 40 )» 1 RAO 
C 0 HMQN/TEMC 0 M/SP 0 UM( 6 ), 0 ER( 40 ). 0 UMM 1 ( 1 S), 3 L 0 PF( 15 ),RE 0 IJM( J 5 ) 

1 . 90 UH 1 ( 40 j, 3 OUM 2 ( 403 ,FW 0 UH( 40 ),XlCON(U 0 ).FwCON{U 0 ).FWINIT( 1 ) 
2 .XIIN 1 T( n.OUDSf 40 ) 

C 0 MM 0 N/VARC 0 M/F( 4 , 15 ),G( 3 , 15 ).SP( 3 , 15 . 7 j .ALPH 
COMMOH/WALCOM/FW(ao. l),Tw( 40 . l).HW(aO. D.SPWf 6 . 40 . 1 ) 
l,RHOVW(yo. n.FLUXJI 3 . 40 , I ) . IHW, ITW , IFw . 1 3 PH. IRHC VW , 1 FI. UX J 
CnMMQN/UNlCOM/UCO.UCE.UCL.UCM.UCP.UCR.UCS.UCT.UCV. ITDK 
I .IUNIT.IPL 0 T,KA( 2 . 10 ) 

COHHON/SLPCOM/ KEOGP 
EQUI VALENCE <RTM.PTET( 0 )) 

NAMEL 13 T/STAU 1 S/PRE. 08 IP,RA 0 R,HW,TW,FW.RHQVW,SPH.FLUXJ 
data IHR/lHR/IHO/lHO/lHl/lHI/lHF/lHF/ 

7 n 07 F 0 RMAT( 7 E 10 , 4 ) 

7 o 08 FORMAT(Al,E 9 , 4 , 7 E 10 , 4 /( 8 Ei 0 .a)) 

Oqot FORMAT(i 3 , 7 E 10 . 3 ) 

106 FORmAT(I 2 ,E 8 . 5 . 7 E 10 . 5 ) 

15 FORMAT(iHI) 

to FORMAT (/, IX. 13 HWALL LENGTH, 

16 FORMAT!//, IX, 16 HAXIAL DISTANCE, 

IT FORMAT (/, 1 X, 23 HPRESSURE RATIO 
18 FORMAT (/, IX, 16 HENTR 0 PT CHANGE. 

IR FORMAT (/, IX, 15 HWAUL ENTHaLPV, 

20 FORMAT (/, IX, 17 HWALL TEMPERATURE, A 6 

21 FORMAT (/, 1 X. 23 HHALL STREAM FUNCTION 

22 FORMAT (/, 1 X, 11 HMA 33 FLUX, A 6 , 6 X 


A6, 

4X 

A6 

, 

A6, 

IX 

A6, 

2X 

A6 



, 8El2.5/(24X,flE12,5)) 
X, 8El2.5/C24X,ftFi2,5)) 
,8El2.5/(20X,8E)2'5)) 

. 6E12,5/(24X,8F12.5)) 
. 8El2.5/(24X,ftFI2.5)) 

. 8E12.5/(2UX,6E1?,5)) 
,8E12.5/C20X,8E12;5)) 

. SEl2.5/(2«X,8E12,5)) 


23 FORMAT (/,IX,23HELEMENTAL MASS FRACTION, 8E 1 2 . 5/ 1 20X , 8E I 2 . 5 ) ) 


,6X 

A6 

9X 


8E12,5/f24X,8E!2.5)) 


,2X 


20 FORMAT (/,1X,11HC0MP FLUX, A6 

25 format (/, IX, ITHSTATIC PRESSURE, 

26 FORMAT C/,1X, 4HXl,( A6 ,aH)**2, 

41 FORMAT C/,1X, 5H8ETAV, 18x -- 

27 format (/,1X, SHBETaP, 18x 

28 FORMAT C/,1X, SHRAOluS, A6 ,RX 

29 FORMAT C/,1X,15HE0GE VELOCITY, A6 

30 FORMAT (/, IX,23HN0RMALIZE0 MASS FLUX 

31 FORMAT (/, iX,23HN0RMALIZE0 COMP FLUX 

32 format (/, IX, 17HINCI0 RAO. FLUX, A6 

33 FORMAT!/, IX, 23H-1/FLUX NORM. PARAMETER ,8El2.5/f 2UX,8Et2,5) ) 
30 FORMaT!//1X,23hSTREAM FUNCTION, LB/SEC ,flEl2,5/!2«X,8E12.5) ) 

35 FORMAT!/, IX, 23HENTROPY CHANGE , BTU/LB R , 8E 1 2 , 5 / ! 20 X , 8F 1 2 . 5 ) ) 

36 FORMAT!/, IX, 23HENTHALPH CHANGE, BTU/LB , 8E 1 2 , 5/ ! 20 X , BE I 2 . 5 ) ) 

37 fORMAT!/24H shock. ANGLE, DEGREES 8E12.5/!20X8E) 2.5) ) 

38 FORMAT!/aoH SHOCK ANGLE , R AO I ANS BE 1 2 . 5/ ! 24 XflE 1 2 . 5 ) ) 

1352 IF CiTEM-n 1519,1538,1539 
1338 lOSIPal 


8E12,5/!20X,RF1 2.5) ) 
, 8El2.5/!20X,8Ei2.'5)) 
, 8E12.5/!24X,8E12.5)) 
, 8E)2.5/!20X,ftE) 2,5) ) 
, 8Ei2.5/I20X,Be')2.5)) 
, eEl2.5/!2UX,8E12.5)) 
,8E12,5/!2aX,8El?,5)) 
,8El2.5/!20X,8Et2.5) j 
9El2.5/!24X,8E)2.5)) 
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6?. 


IPRE»1 

63, 


IRAOal 

6«, 


NENsO 

65. 


DO 1540 IslfNS 

66, 

0 

IT 

D3IP(I)»0, 

67. 


NL»NSD(5) . 

6fl, 


IF(NL.EQ.O)GO to 1539 

69 


rEAD(KIN.STALIS) 

TO,' 


GO TO 1534 

71, 

1539 

IF (I08IP-ITEM) 1536,1537,1536 

72. 

1537 

lF(KR(5i-5) 1522,1535,1536 

73; 

1522 

lP(KR(5i-2) 1536,1524,1524 

7«. 

1524 

rEAOCKIN, 106) NEN,UINF,RH0INF,HINF,P1MF 

75, 


HlNPaHINF/1 ,8 

76, 


IF(nEN) 1527,1527,1526 

77,' 

1526 

READ (KIN, 7008) IRED, (SF(I),Ial,NEN) 

7B, 


IF(IREO.NE.IHI.ANO.IREO.Ne.IHF) go to 1530 

7’I 


DO 1547 laliNEN 

80. 


IFdRED.EQ.IHI) 3F(I ja3F(i)/l2. 

81. 


OUM8RHOINF*UINF*3F(I ) 

02, 


IF(AR3(KR(6)-2),E0.1)G0 To 1547 

83. 


DUM80UM/2.*SFCI) 

8U.' 

1547 

3F(l)aoUM 

05, 


GO TO 1530 

86. 

1527 

NENaNS 

07, 


DO 1528 Ial,NS 

80, 

1528 

3F(I)aRHQlNF*UINF/2.*RQKAp(I)**2 

09; 

1530 

RE AD (KIN, 7000) I RED, (CS ( I ) , lal , N£N) 

90^ 


WRITE(K0UT,34) (3F(I),I81,nEN) 

91. 


IF(IRED,NE.IH0) go to 1548 

92; 


WRITE (KOUT,37)(C3(li,lal,NEN) 

•»3, 


DO 1551 Ial,NEN 

94, 

Jl 

CS(I)aC3(I)/57. 29577 

•>5, 


iREDalHR . 

96, 


GO TO 1549 

97. 

1540 

IF(IRED.NE,IHR) GO To l55o 

90; 


WRITE(KOUT,38)(C3(I),I«1,nEN) 

99^ 


GO TO 1549 

ion. 

isso 

WRITE(KOUT,35) (C3 ( 1 ) , lal , nEN) 

101, 

1549 

IF(KR(5)-4) 1529,1525,1529 

102, 

1525 

READ (KIN, 7007) (CG ( I ) , lal , NEN) 

103. 


CALI. 3LOPO (NEN,SF,CG,CGP,DER) 

104. 


WRITE (KOUT, 36) (CG ( I) , lal , nEN) 

105. 


GO TO 1529 

106. 

1535 

READ (KIN, 7007) ( D3IP ( I ) , la 1 , N3 ) 

107, 


DO 1570 lal, NS 

100. 

1570 

D3IP(I)80SIP(I)*UCE/UCT 

109, 

1529 

CONTINUE 

110, 

1536 

IF (IPRE-ITEM) 1534,1533,1534 

111, 

1533 

lF(lTDK,EQ.0)REAO(KIN,7007)(PRE(I>,Ial,N3) 

112. 

1534 

IF{PRE(D) 1541,1542,1541 

113; 

1542 

DO 1543 Ia2,N3 

114. 


iF(PREd)) 1544, 1543,1544 

115, 

1544 

L"I 

116, 


GO TO 1545 

117, 

1543 

CONTINUE 

110. 

1545 

RN03EbS(L)/SORT(1,-PRE(L)) 

119. 


DO 1546 Ia2,L 

120, 

1546 

PREd-l)ol .-Sd-1 )/RN03E*Sd-l)/RN03E 

121, 

1541 

DO 1531 Iai,NS 

122, 


IF(PTET(2).LE.I,0E-29)PTET(2)«1.0 

123. 


PRE(l)aPREd)/PTET(2) 

124; 


PTE(1 ,l)aPTET(ITEM) 

125. 

1531 

PEd ,l)aPTE(I ,D*PREd ) 
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126. 


IF (IRAD-ITEMH554, 1552. 1554 

127. 

1552 

lF(NL.EQ.0)REAO(KIN,7007HR4OR(n,I»l,NS) 

128 ' 

1554 

DO 1553 IbIiNS 

12<». 

1553 

RAO3(nBRADFL(ITE'<)*RA0R(r) 

i3o: 

i05 

DO 104 ISal.NS 

131, 

201 

IF (13-1) 207,207,203 

132, 

207 K0(1)b2 

133. 


KO(5)b2 

134. 


K0(6)a0 

135, 


KO(4)bO 

136, 


OUMsUEd) 

137, 


IF (KR(7) )8003, 8003, 8002 

I3fl, 

8002 

CALL state 

134, 


kiRITE(K0UT,992) 

140. 


WRITE(K0UT,994) 

14t; 


NBlUNIT+1 

142. 


WRITE (K0UT,993)KA(N,6),KA(N,5),KA(N, 15),KA(N,2),KA(N,8),KA(N.14) 

143, 


1 ,KA(N,7),KA(N,1),KA(N,15) 

144, 

442 

FORMAT ( IHI, 12X15HE0GE CONDITIONS//) 

145. 

443 

FORMAT (7X, A6, 7X, A6,5X,A6,7X, A6,5X,A6,6X, A6,8x, A6,5X,A6,5X,A6) 

146. 

o4a 

F0RMAT(2X,2HI3,3X116H WALL TEMP CP STATIC 

147, 


1 DENSITY VISCOSITY VELOCITY ENTHALPY ENTROPY MACH 

148. 


2 NO. / 

144. 


35X46H length FROZEN PRESSURE ) 

150. 


GO TO 8004 

151, 

8o03 

CALL EQUIL(KQ,GE(ITEM),PTe(1,IT)) 

152. 

8n04 

KQ(1)b3 

153. 


KQ(2)bO 

154^ 


K0(3)b6 

155, 


K0(5)al 

156. 


IFCKR(6)-2) 210,203,203 

157, 

203 

IF(ITF(15),EO.O)GQ to 2031 

158, 


IFCIS.EO.I) UEdiaOUM 

154, 


CCEaGE(lTEH)-UE(lS)*UEdS)/50073. 

160, 


IF(KR(7) .EQ.O) GO TO 8106 

161. 


CALL state 

162, 


GO TO 210 

163. 

8?06 

WRITE(KOUT, 12)13 

164, 


KQ(1)b2 

165. 


call EQUILCKO.CGE.PECIS.IT)) 

166. 


CO TO 210 . 

167, 

2031 

CONTINUE 

168. 


IF(KR(7) ,E0.0) GO TO 8006 

164, 

8005 

CALL STATE 

170. 


GO TO 210 

171. 

8006 

WRITECKOUT, 12) IS 

172, 

12 

PORMAT(2X,11HSTaTION N0,,|3) 

173, 


call EQUIL(KQ,0.,PE(IS,IT)) 

174. 

210 

IF (NSPM1)205,205,215 

175. 

215 

DO 216 Kb1,N3PM1 

176. 

216 

SPECK, IS, IT)=SP(1,NETA,K) 

177.- 

205 

IF(KRC15)) 9903,9904,9903 

178. 

9603 

WRITECKOUT, 9901) IS, HEA ( IS ) , UE ( 1 3) , PTE Cl S , 1 ) , TE C I S ) , RHOE f I S ) 

174, 


1 ,VMUECIS) 

ISO. 

9004 

CONTINUE . . 

181. 

i04 

CONTINUE 

182, 


IFClRED.NE.IHRiGO TO 103 

183.' 


KQ(l)a2 . 

184 


K0C5)b3 

185. 


DO 102Ial,NEN 

186. 


CALL EQUIL(KQ,CS(I),PTE(1, D) 

187^ 


IFCI.EQ.I) CSlaCSCl) 

188. 

102 

CS(I)bCS(I)-CS1 

184. 

ioi 

IFCNEN.GT.oiCALL SL0P0(NEN,SF,CS,C3PR,DER) 
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190, 

C 

END OF EDGE PROPERTY LOOP, 3T4RT OF BETA AND XT CALCULATION 

191, 

605 

Xl(l)»0. 

192. 


jaNDISCAl 

193,' 


LLbI 

194, 


NSMsNS-1 . 

195, 


DO 111 llBlrJ 

196, 


KB2 . . 

197, 


M»LL 

198, 


MMbm+i 

199. 


1F(MM,E0,NS) go to 602 

200, 


DO 601 IXbHM.NSH 

201. 


lF(ID!3C(lX),EQ.n GO TO 602 

202,' 

601 

KBK+1 

203, 

602 

CONTINUE 

204. 


LLbK+M-1 

205, 


IF (Il-li 6052,6052, 402 

206. 

6o52 

IF (KR(6)-1) 400,401,402 

207.’ 

C 

AX13YMETRIC BLUNT 

208.‘ 

400 

DO 403 IbM,LL 

209 


S0UM2(I)a3(I)*S(n 

210. 


iFCSan 403,403,4031 

211, 

4o3l 

DUMiaROKAP(I)/S(n 

212. 


XICONai«UE(I)/S(n*RHOE(l)/4,*VHUE{n*OUHl*OUMl 

213,' 

403 

SOUHl (I)BSDUH2(I)*30UH2(I) 

214. 


QIb4. ^ 

215.' 


BETAHdiaO.S 

216.' 


GO TO 406 

217. 

C 

planar blunt 

218, 

401 

DO 404 IbH,LL 

219 


3DUM2(I)83(I) 

220, 


IF(S(in 404,404,4041 

221. 

4041 

XlCON(IiBUE(I)/S(I)*RHOE<n/2.*VMUE(lj 

222, 

404 

S0UMHI)a3a}a8(I) 

223. 


Qla2. 

224.' 


BETaMU jal. 

225, 


GO TO 406 

226, 

402 

IF (KR(6}-2) 406,407,406 

227, 

C 

AXI3YMETRIC SHARP 

228. 

407 

00 409 ;bh,ll 

229, 


30UM2mB3(n«8(n 

230, 


DUMlaROKAPdi/SCn 

231. 


xrCON(I)BRHOE(n*UE(I j*VMuE(I)*0UMl/3.*0UHl 

232: 

409 

SDUMl (l)a3(n*30UH2Cl) 

233, 


XKl) aXICON(l)*S(l)*S(l)*S(l) 

234, 


0lB3. 

235, 


IF (I>1) 4051,4051,406 

236, 

C 

PLANAR SHARP 

237. 

408 

DO 405 IbM,LL 

238, 


SDUH2(I)bS(I) 

239. 


XICON(I)bRHOE(I)*UE( 1 j*VMucn)*ROKAP(I)*ROKAP(l) 

240, 

405 

SDUMl (I jaS(I) 

241, 


QI"1. 

242, 


IF (II-l) 4052,4052,406 

243, 

4052 

XKl) aXIC0N(l)*8(U 

244, 

4o5l 

mhbm 

245. 

406 

CONTINUE 

246.' 


IF(ITF{14).NE.O)GO TO 4012 

247. 

C 

CALCULATE VEL. GRAD, IF NEEDED 

248, 


IF(KEOCP-I) 4010,4011,4011 

249. 

4010 

CALL SL0PQ(K,S{M),UE(H),0UD3(M),0ER(H) ) 

250, 


GO TO 4012 

251. 

4011 

CALL SLOPL(K,SCM),UECHi,OuDS(M),OER(M) J 

252. 

4012 

CONTINUE 

253. 


IF (KR(6)«2) 4066,4062,4062 
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25U. 

4o66 

if (M-1) 4061,4061,4062 

2ss; 

4061 

IF (RN03E) 4063,4063,4064 

25h. 

COmMEMT. . .DUES COMPUTED BV 3L0P0 

25T. 

4065 

0UE8»0U03(l) 

258, 


CO TO 4065 

250. 

commei^t...oue3 prom effective nose Radius using newtonian flow 

260, 

4o64 

0UES«S0RT(2,/RHQE(1 )*PE(1, 171*32.174 0*21 16.1 /RNOSE 

261, 

4065 

XICONt li«RHOE( l)*VMUE( 1 ) / (2, * VKAP*2 , } *DUES 

262. 

4062 

IF(KEDGP-Ii 4013,4014,4014 

263. 

4013 

CALL SLOPQ(K,30UMUMi,XlCON(Mi,DER(Mi,Xl(Ml 1 

264. 


CO TO 4015 

265. 

4014 

CALL SLOPL(K,3DUHI(M),X1CON(M1,OER(M},XI(M11 

266, 

4015 

CONTINUE 

267^ 


IF (LL-MMi 111,4101,4101 

268. 

C 

SKIP BETAV CAL. WHEN OPOS CALCULATED FROM PRESSURE INPUT 

260, • 

4101 

IF(lTF(l4i .NE.OiCQ TQ 4102 

270. 


DO 410 L«MM,LL 

27) . 


BETaV(L) 62./QI*XI (L)/UE(Li*S(L)/SOUMi (L)*OUDS(Ll/XTCONfLi 

2T2.‘ 

4tO 

BETAMILIbBETAVILI 

273. 


GO TO 111 

274. 

4102 

a2«R7M*UCL 

275. 


A 1 aPTET ( 1 1/PTET (2) /A2*2l 16.2*32. 1740 

276. 

C 

A1 AND A2 fix the UNITS AND UNN0RHALI7E BETAH AND BETAV 

277. 

C 

aS they come from GEOM 

278, 


00 4103 LbMH.LL 

270, 


As2./QI*Xia)/UE(L)*3(L)/S0UMl fLVXKON(L) 

260. 


BETAM(L)B-BETAM(L)*Al/BHOcrL)/U£(Ll*A 

281. 


IF<lTF(l5).EQ.0iGO TO 4lOa 

262. 


BETAV (L)oBETAV(L)/RTM*A 

283. 


GO TO 4103 

284 

4T04 

0ETAV(L)BBeTAM(Ll 

285. 

4)03 

CONTINUE 

286, 

111 

CONTINUE 

287, 

0803 

FORMAT(8E10,41 

288, 


WRITEIKOUT, IS) 

280, 


VaUCM*UCM 

200. 


DO 4tl I«1,NS 

201. 


SOUMl a)»ROKAP(I)/UCL 

202, 


S 0 UM 2 (I)a PE(I,n/UCP 

203. 


DER<I1 bS(I)/UCL 

204. 


0 U 03 (n» 08 IPm/UCE*UCT 

205. 


FWDUM(I)aUE(I)/UCL 

206. 


xicoN(i)«xi(n/v 

207. 

411 

FHCONdiaRADSm/UCR 

208. 


N8IUNIT*! 

200.' 


NSXaNS+lO 

300. 


WRITEIKOUT, 16) KA(N,R), (PTETm,I«ll,N3X) 

301. 


WRITEIKOUT, 14) KA(N,9), (dER ( I) , la 1 , NS ) 

302, 


WRITE(K0UT,2a) KA(N,9), ( SOUMl ( I ) , Is 1 , N3 ) 

303, 


wRIT£(K0UT,26) KA(N.iO), ( xIC0N(I),lsl,N3) 

304. 


WRITEIKOUT, 17) ( PRE(I),Ial,NS) 

305. 


WRITE(K0UT,25) KA(N,2), (S0UM2 ( I ) , I* 1 , NS ) 

306. 


IF(kR(5) ,EQ,5)WRITE(kOUT,i8) KA{N,15), (DUDS ( I ) , I» 1 , ns ) 

307. 


WRITE(K0UT,29) KACN.T), (FWOUM (I ) , la 1 , NS) 

308. . 


WRITE(K0UT,41) ( BETAV(I),I81,nS) 

300 


WRITE(KOUT,27H8ET4M(I),Ia),NS) 

310. 


WRITE (KOUT, 32) K A (N , 1 1 ) , (FWCON ( I ) , 1 a 1 , NS ) 

311. 


IFCIPLOT.NE.I ICO TO 412 

312. 

C 

OUTPUT FOR PLOT 

313, 


KPLTaMSD(2) 

31-4. 


WRlTE(KPLT)PTET(n,GE(t),N3,OER,XICON, (PTE T ( I ) , I a 1 1 . 50 ) , SOUM i 

315, 

1 SDUM2,FWDUM,0ETAM,BETAV 

316. 

412 

continue 

317.' 

C 

CALCULATION OF C3 MATRIX 


4-40 



B07A, REFCON 


3tfl. 


31 % 

320. 

321. 

322. 

323. 


12 ". 

325. 

32A. 

327. ’ 

328. 
320. 
530, 

331. 

332. 
333 ^ 
330. 
335. 
338." 

337. ' 

338. 
330, 
300. 


3«1. 

302. 

303. 
300. ■ 
305. 
308. 

307, 

308. 

300. 


350. 
351 . 

352. ' 

353. 
350. 
355. 


556, 

357. 

358 

350. 

360. 


361, 

362, 

363, 
.360, 

365, 

366, 

367, 

368, 
360, 

370, ' 

371. 

372, 

373. 
370. 
375. 


376 

377. 

378, 
370. 

380. 

381. 


00 138 IBI.NS 
IP (KR(6i-n 137,137,158 
137 IF (I-n 130,130, 158 

iso C3M(nB-3QRT (BETAH(i)/(OUE3*RHOE( I)*VMUE( I))) 

GO TO 138 

l58 C3M(I j»«8QRTC2.*XI( lh/(RHOE( n*ROKAP( I)*UEf I)*VMUEf iji 
?38 CONTINUE 

C READ wall CONDITIONS IF UNCOUPLED 

jRHDVWaO 

IF (ITEM-li 108,108,7000 

Toe ihwbi 

iTWal 
iFWsl 
IRHOVWal 
iSPwal 
IFLUXJal 
DO 00 laljNS 
00 00 L«l,3 
00 FLUXJa,I,D a 0. 

107 IF (KR(0)-3) 7050,7005,1071 
lo7l lF(KRC0j-5) 7007,7005,7007 
7n50 lF(KRnn-2) 7062,7000,7007 
7662 IF(KR(11)) 7000.7005,7000 
7600 IF (IHW-ITEM) 1091, 105, lORl 
1 q91 IF( THW-J) 1201,7005,1201 

109 IF(NL.E'3.0)REA0(KIN,7007){(HW(J,JJ), JJBI.NTIME), Jal.NSi 

1201 WRITEIKOUT, 19) KA(N,1), (hW ( I , 1) , lal , NS ) 

DO 1171 Jal.NS 

1T71 HW(J,i)aHW(J,n*UCE 

IF fITEM-1) 7038,7038,7060 
7o05 IF CITW-ITEMH092. 1 10 , 1092 
1692 IF( ITW-l) 1202,7060,1202 

1 10 lF(NL.EQ,0)REAOCKIN, 700r)((TW(J,JJ),JJal,NTlME), Jal,N.S) 

1202 WR1TE(KOUT,20) KA(N,5), (TW ( 1 , 1) , la 1 , NS ) 

DO 1172 Jal.NS 

1?72 TW(J,l)aTW(J,l)*UCT 

IF CITEM-l) 117,117,7060 
?17 IF (KH(9)-3) 7038,7007,7007 
7o38 IF(KR(9)-1) 7060,7061,7000 
7o60 IF (IFW-ITEM) 1093,112,1093 
ln03 IF( IFW-J) 1203.7061,1203 
T12 IF{NL,EO,0)PEAD(KIN,7007) ((FW(J,JJ), JJai.NTlME), Jal.NS) 

1203 WRITE (K0UT,21)(FW(I,i),Ial,N3) 

GO TO 7006 

7661 IF (IRHQVW-ITEM) 1090,116,1090 
1090 IF(IRHOVW-I) 1200,7006,1200 
118 IF(NL.EO.O)PEAOCKIN,7007) ((PHOVWU, JJ), JJal ,NTIHE) , Jal ,N3) 
JRHOVWal 

ijoo IF(kR(8)-JRH0VW) 1102,1101,1101 

li02 WRITE(Kf)UT,22) K A (N, 1 2) , (RHOVW ( 1 , 1 ) , la I , NS ) 

V»UCM/(UCL*UCL) 

DO 1173 Jal.NS 
1*173 RHOVWCJ, liaRHOVWCJ, 1 )*V 
GO TO 7006 

ITOI WRITE. (KOUT,30)CRHOVW(I,li,l8l,NS) 

7606 IF(NSPNI) 7003,7003,7015 
7615 IF (ISPW-ITEM) 1095,110,1095 
1o 95 IF( ISPW-1) 1205,7000,1205 
llO DO 7010 Kal.NSPMl 

7olO IF(NL,EQ.0)PEADC<1N,7007) ({3PW(K, J, JJ), JJal , nTIPE). J al ,NS) 
1205 DO 1097 Kal.NSPNl 

1097 write (K0UT,23)( SPW(K,I,i),Ial,N3) 

GO TO 7003 

7n00 IF (IFLUXJ-ITEM)1096, 115, 1096 


4-41 



B07A. REFCON 


382. 

383^ 

38R. 

385, 

38h. 

387. 

388, 
38P. 
390,' 

301« 

392. 

393. 
39a. ■ 
395,- 
39h. 

397. 

398. 

399. 

aoo; 

«oi, 

402, 

403. 

404. 

405, 
408. 

407. 

408. 

409 . 

am. 

4U. 

412. 

ai3.‘ 

414 . 

415, 
4lA. 

417 . 

418. 

419 . 
42 ( 1 . 

421. 

422. 

423. 

424 . 

425. 

426. - 

427 . 

428 . 
424 . 

430. 

431. 

432. 

433. 

434. 

435. 
4 36, 

437. 

438 . 

439; 

aao. 


1o 96 IF(IFLUXJ-l) 1206,7043*1206 
1 15 DO 7041 Kaj,3 

7041 IF(NU.EO,0)READ(KIN,7007)((FLUXJ(K, JJ»i .NTIME), Jai.NS) 
jRHOVWbI 

1?06 DO 1098 Kai,3 

lF(KR(8j-JRHOVW) 1104,1103,1103 
ll04 WRITE(K0UT,24) K4(N,l2),(FLUXJ(K,I,l),Isl,NSi 
00 7039 Jal.NS 

7n39 FLUXJ(J,K, l)«FLUXJ(j,K,n*C3M(J)*V 
CO TO 1098 

li03 WRITE (KOUT,3n(FLUXJ(K,I,l),I»l,N8) 
l(i98 continue 

CO TO 7047 

To43 IF(JRHOVW) 7047,7047,7045 
C CALCULATE FW IF HHOVW GIVEN 

7045 JBNOISC+1 
LL = 1 

NSMaNS>l 

DO 7046 Ilal,J 

K02 

M=LL 

MMaM+1 

DO 603 IXaHM*NSM 
lF(l0l3C(lX).EQ.n GO TO 604 

603 K*K+1 

604 LL«K*M-1 

DO 209 laM.LL 
IF (KR(83) 7049,7049,2291 
7049 RHQVW(I,IT)aRHQVWn,lT)*C3M(I) 

2?9l IF (II-l) 7048,7048, 250 
7o48 IF (KR(6i) 229,229,230 
C VALID AT AXISVMETRIC STAGNATION POINT ONLY 

P29 FWCON(I)a«RHOVW(I,IT)/(2.*C3M(in 
IF( I-n 209,209,232 

C MODIFICATION FOR AXISYMETRIC BLUNT aWAY FROM STAGNATION POINT 

232 FWC0N( I)«FWC0N( n/S( n*ROKAP( I) 

GO TO 209 

C VALID FOR all PLANAR 

230 FWCON(I)«-RHOVW(I,ITi/C3M(I)*ROKAPm 
IF(KR(6)-2) 209,236,209 
C MODIFICATION FOR AXISYMETrIC SHARP 

256 FWCONC liaFWCONI n/3( I)*ROKAP( I)/2. 

209 FLUXJ<2,I,l)*RHOVW{I,n 
FW0UM(l)aFWC0N(i)*3(ii 
lF(KR(6)-2) 241,237,241 
C MODIFICATION FOR AXISYMETRIC SHARP 

237 FWDUMCn"FWOUM(l)«S(l) 

241 CONTINUE 

7046 call 8L0P0(K,SDUM2(H),FWCoN{M),DER(H),FW0UM(m)) 

DO 126 1 31, NS 

IF(I -1) 124,124,123 
124 IF (KR(6)-1? 133,133,123 
T33 if (S(Ij) 113,113,123 
113 FH(l,lT)aRHOVW(l,IT) 

GO TO 126 

T23 FW(I rlTjaPWDUMCI )/SQRT {2.*XI(1 )) 

?26 CONTINUE 

7047 return 

END 
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U 

2, 

3, 

a. 

in. 

11, 

12^ 

U, 

‘5, 

Ift. 

17.' 

1«. 

20, 
21 . 
22 . 
23 , 
2 «. 
25. ‘ 
28, 
27. 
2b; 
2'». 

31. 

32. 

33. 
3a. 
35. 
38, 
37. 

3fi, 

3% 

an. 

"I, 

" 2 . 

as. 

aa. 

as. 

a8. 

afl. 

aa. 

50, 

31, 

52. 

53. 
5a. • 
55. 
58. 

5^ 

5fl. 

5a. 

60. 

61. 


SUBBOUTINE MISCIN 

COMMON/BCOCOM/MOA(60 j,MQ6(60),NSPEC,F«(60, 15) ,Wt5 j ,UEFS(8) 
1,PIEA3E,LEFW(8) 

C0MM0N/CRBC0M/HCARB,EM1S,sTEF,ADUH,B0UM,CDUM,HTEF,HMAT,EMISC.EMIST 
1,HPG.ASU(3)#B3U(3)iHPYG(3),HCHAR(3),EMIV(3),KS(O0). ISU 
COMHON/ETACOM/ETA(13),OETA(15).OSO(ia),DCU(U),Bl (lU),B2tia) 
1.LAR(123),BA1 (a3, 18),BA2(30.15) 

COMMON/EP3COM/ELCON, VAP»CLNUM,SCT,PRT»RE0»DVS.RH0VS,PI,PTM.CL. 

1 EPSA(15),EP31ieL<lSi,0PI(15,2),0EPC,TREF,RETH,VINTRn5) 
C;OMMON/1NTCOM/KR(20),K1 N,kOUT.MAT1I,HAT2I,MAT1J.HAT2J,NETA. I, IS.NS 
1, IT,NTIME»N3P#NSPM1,NAM,NlE0,NNLE0,NRNL, ITS,KAPPA,CBAR.CA3E05), 
2B(8),MWE,NON,KQ(10), ITEM,nITEM,KR 17,NBT,NRT2, lOENT.KPatao) .KAIIXO, 
3JTIHE| J8PEC»M0(3) * lU, ISH. kONRFT 
COMMON/RFTcOM/F2FlX(15).KRlO,NPMt .NPOINT.RAT lIM, 
10UMUn5),KTURB,KAPPAT,NETAT,F2FlXT{15) 

CaMMON/PRMCaH/TIME(So)*Pfle(ao).PTET(50i,GE(50),S{aO),ROKAP(aoi. 
lRN03E,VKAP,N01SC,t01SC(aoi,NSO(5),H30(5),ITF(50),TPRE,BAnNO,CONE, 
2RAOFL(50),RAOR(aO),RAOS(ao)#IRAO 
COMMON/UN1COM/UCO*UCE«UCL,UCM,UCP,UCR.UC3,UCT,UCV, ITDK, 
1IUNIT,IPL0T,KA(2» la) 

COMMON/SLPCOM/KEOGP 

COMMON/VARCOM/F(a, IS)/ G (3,15)* SP(3, 15,7), ALPH 
equivalence (G(1,1),GwJ,(ITF(13),IST),(N3D(5),nl) 
NAMELl9T/MISLlS/N3P,KS/NS,KRa/101SC,S*RTM,R0KAP,^ETA,NETAT,ETA, 
IKAPPA,KAPPaT,CBAR,KONRFT,nPOINT,RaTLIM,KTURB,F2FIX,F2FIxt, 
2GE(n,PTET(l),PTET(2),RA0FL(l),ELC0N,VAP,CLNUM,SCT,PRT,RETR 
3,ALPH,F,I3T,G/SP/LEF,GW 
EOUlVALENCE(RTM#PTET(a)) 
iFCKRtn.EQ.O) GO TO 103 
IF(KR(7),LE,nG0 TQ lOO 
NETAS12 

eta(i )«d.o 

ETa(2)o0.002 

ETA(3)»0,006 

ETA(a)a 0.01 

ETa(S)»0.025 
ETA(8)«0.06 
ETA(7)s0.15 
ETACBjoO.a 
ETA(a)aO,7 
ETA(l0)al,0 
ETAdlial.S 
ETA(12)a2.3 
KAPPAalO 
F2FIX(l)a0.0 
F2FIX(2)a0.05 
F2FIX(3)a0.l2 
F2FIX(a)B0.25 
F2FIX(5)aO,35 
F2FIX(6)a0.aS 
F2FIX(7)b0.6 
F2FIX(8)ao,75 
F2FIX(a)B0,85 
F2FIX(10)80.a5 
F2FIX(U)»0.a8 
F2FIX(12)8l.O 
CO TO 101 
Too NETA»7 

ETAOIbo.O 

ETA(2)a0,S 

ETA(3)ai.O 
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63 . 

63 . 

6U. 

65. 

66 . 
67. 
6B^ 

70, 

71 . 
^2. 
73 . 
7 «. 
75: 

76. ' 

77. 

80. 

8J, 

82. 

8^, 

8 «. 

85, 

86 . 

87. ' 

88 , 
80. 
00 . 
01 . 
52. 


ETA(fl)al,5 

ETA(5)82.0 

ETA(6)»3.0 

ETA(7)»5,0 


KAPPA86 
P2FIX(t)«0.0 
F2FIX(2)80.2 
F2F1X(3)80.« 
F2FIX(aj80.6 
F2FIX(5)80.8 
F2FIXC6)80.05 
F2FlXt7)8l,0 
TOl RATLIM80.5 


NP0INT83 


CBAR80.05 

703 CONTINUE 

ELCONb 0.44 

yaps 11.823 

CLNUMb 0.018 

8CTs 0.9 

PRTb 0.9 

REAO(KINiMlSLISi 

IF(KONRFT.NE.O) KRlOaKR(lo) 

IP(KTURB.NE.O) NPMI«NPQINT-1 

IF{nETA.lE.15.AN0.NETAT.LE.15)GQ to 102 

WRITE(K0UT,1) 

1 f0RMAT(21HT00 many nodal POINTS) 

STOP 

i02 CONTINUE 
RETURN 
END 


\ 


I 
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1. 

:».■ 

5 . 

fl, 

to. 

11 .' 

12, 

15 . 

15, 

Ih. 

17 . 

18 , 
1«». 
20 : 
21 . 
22 . 
25 ," 
2 «. 
25 , ■ 
28 . 

27 . 

28 , 
20 . 

30. 

31 . 
52 . 

sa, 

35, 

38 . 

37 . 

38. 

3^ 

ao. 

ai. 

" 2 , 

аа, 
« 5 . 

аб. 
07. 
a8. 
ao. 

50. 

51 . 

52 . 

53; 

sa. 

55 . ' 

56 . 
5’, 
58 . 

55 , 

60. 

61 .' 


CBftSB 

SUBROUTINE ICOEFF 

COMMON/COECOM/ C5,C6,C7,C8,CO,C10,C1 1 ,ci2,ci3,Cia,ci5 

l,C16,C17,C18,ClO,C20,C2t.c22,C23,C2a,C25,C26,C27,C28,C2o;c30.C31.C 
232>C33,C3a.C35|C36,C37,C38.C30,Cao,Cai.C42.Ca3,Caa,caS.ca6,Ca7,Ca8 
3,CaO,C50,C51f C52,C53,C5a,c55,C56,C57,C58,C59,C60,C61,C62,C63,C6a,C 
a65,C66,C67,C68,C60,C70,C7l»C72.C73,C7a,C75*C76.C77,C78,C70,C80,C8t 
5,C82>Ce3(C8a,C85,Ce6,C67,c88 

COMMON/COECON/ CKK 6)>CK2( 6),CK3( 6)>CKa( 6l.CK5( 6),CK6( 61 

1, CK7( 6i,CKBC 6),CH<?( 6),CK10( 6)#CK11( 6),CK12( 6),CK13T 6) 

2, CKia( 6).CK15( 6),CK16( 6)*CK17( 6),CK18( 6 i,CK 10 ( 6),CK20( 6) 

3, CK21( 6),CK22( 6),CKKlt 6/ 6),CKK2( 6, 6 ) , XM ( 5) , XG (5 ) , XSP f 5, 71 

4, CKK3( 6, 6) 

common/edgcom/ PE(ao, ii,PTE(ao, ii,sPE( 6,ao, li.ouES, 

tUE(aO)fRHOE(aOi« VMUE(aO),TE(40),UEOGE#OUEOGE.D2UEDG.VMME,HE,COO 
2 #D8lP(aO),IOSiP,TTVC»TVCC(aO) 
COMMON/ETACOM/ETA(15i.0ETA(15)»O30(ia)*DCUtial .81 (lai ,82f lai 

1, LAR(123),BAl(a3,18).BA2(s0,l5) 

COMMON/HI8COM/Cl.C2,C3,Ca,ALPHD,BETA#ZM(a, la j,ZG(a,ial ,ZSP(a, la, 6 
I )iXI(aO),HF(15,51,HG(15,5),HSP(15,3, 6 ) , HALPH, HUE ,HHUE , HFW , 0LX2 

2, C3M(aoi,3ETAM(40) 

COMMON/INTCOM/ KR ( 20 1 , K IN, KOUT , M ATI I » M AT2 1 , Ma T IJ , MAT2 J , NET A , T , I S , N 
18»IT» NT1HE,N3P,N3PM1,NAN,NLE0,NNLEQ»NRN|., ITS,KAPP4.CBAR,CA3E(15i 
2,8(8) , MWE.NONjKIdO j,ITEH,NlTEM,KRt7,NBT,NRTP, inENT.KROCaO) 

J,KAUXO, JTIME, J8PEC,MD(3) 

COMMON/PRPCOM/PR(15),T(15),RHO(15),8C(15),CAPCn5),OR(15i ,H(t5) 
1,CPBAR(15),VMW(15),PH1K(15, 6) , ORHOH, DRHOK ( 6),ZK( 61,DZKH( 6). D 
2MU3K( 6),DMUaK( 61,DTK( 6),DPH1KH( 6),DPRK( 6i,D3CK( 6),0CAPCK( 6) 

3, DHTILK( 6),0QRK( 6),0CPBK( 6),DCPTK( 6),DMui2K( 6),D2KK( 6, 6) 

a,OPHlKK( 6, 6), 0HU4H, 0NU3H, OHTILH, V'<U12,CT,CrR,CPTH.,H7H. 

5, VMU3,OTH,OCAPCH,OPRH,08CH,OORH,OCPBH,DCPTH,OMU12H,VHU(151 , RHOP 
6n5),PHIXP(15),HP,TP,Zt<P( 6),VHU3P, VMUaP,HTlLP,CRH0(iai,GMR(i5) 

C0MM0N/VARC0M/F(a,15),G{3,15),8P(5,l5, 7),ALPH 
C FIR3T, EVAL DERIVATIVES OF STATE PROPERTIES WITH RESPECT TO ETA 
vMuaPsOMuaH*HP 

VMU3P«0MU3H*HP ■ 

htilpbdhtilhahp 

TPbOTHahP 

RHOP(I)«ORHOH«*HP 

lF(NSPMi)aoi,aoi,ao2 ' 

002 DO aoe K»1,N3PM1 
ZKP(K)«OZKH(K)*HP 
PHIKP(K)»0PHIKH(K1*HP 
VHU4PsVMUaP>0HUaK(K)*SP(2,I,K) 

VMU3P=VMU3PtOMU3K(K)*3P(2,I,K) 

HTILPbHTILP*0HTII.K(K)aSP{2,I,K) 

TPaTP+0TK(K)*3P(2. I,K) 

RHOP(I)»RHOP(I)+ORHOK(K)*3P(2,I,K) 

DO a08 J«l,NSPMl 

ZKP(K)«ZKP(K)tOZKK(K, J)*SP{2,I,J) 

008 PHIKP(K)»PHIKP(K)+DPHIKK(K,J)*8P(2, I, J) 

C next, evaluate OTHER GROUPINGS FOR USE AT I AND I-l 
nOl C11»C5 * F(3,I) • TTVC 
C12 s C5 * CAPCdl* TTVC 
CiaBCl*F(l,I)+HF(I,5i 
C15sPR(I)-l, 

C16«1./PR(I) 

C17«1./3C(I) 

C18oCTR*T(I) 

C10aCl7*Cia 

C20bC16*C12 
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63 . 

6 «,' 

65 , 

66 , 
67 . 
6R. 
66 .' 

70 , 

71 . 

72 , 

73 . 

75 . 

76 . 

78 . 

60 , 

81 . 

62 , 

83 . 

8a. 

0%' 

66 . 

87 . ' 

88 . 
86 . 
60 , 

62 . 

’ 3 , 

60 . 

65 . 

’0, 

67 . 

68 , 

66 . 
100 . 
101 , 
102 , 
103 . 
100 , 

105 . 

106 . ' 

107 . 

108 , 
106 . 
110 , 
111 , 
112 , 
113 . 
110 , 

115 . 

116 . 
117 ; 
118 . 
116 , 
120 . 
121 . 


C21 » C13 * C15 

C22 6 C21*C20 

C23 a OCAPCH/CAPCCn 

C20 a C20 * (G(2. 1)-C21*F(2>D) 

C25a C20 * C16 * (G (2» I ) ♦Cl 3*P (2> I ) ) 

C26 a RH0E(1S)/RHQ(I) 

C28 a C12 * P(3f n 

C31 a HTILP-{CPTII.+CT/V^Ui2*CTR)*TP+C18 * V^USP* (HT IL-H ( T 1 ♦CTR* 

I VMU3* Tdi) *VMU0P 

C32 a (-F(2,l)*C13*TP/PR(I)*CPBAR(n*C31/3C(in * C12 - C3*0R(n 
1 *TTVC 

C«3aC20aC23-C25*OPRH-C3*0ORH*TTVC 
CS3aRHOP(I j/PHO(l) 

C56 a F(2,I)/ALPH 
C73 a Cl * F(2,I) 

C70 a Cll * CIO * DCAPCH ♦ CIO 

C75aCll*0CAPCH 

C76aCl*G(l,n 

C77a-C22*C03*C10 

C78a-C20*Cl5*ClO 

C76aC03 

C60aC20 

C8la-C28*(Cl0*C56*C23+C5) 

C82a-C20*C5*G(2» Il+3.0<iC22*C56-CO3*C10*C56 
C63aC26fC10 * F(2,I) 

012 C80aC324G(l*I)*CtO 

CaS a .C6/RH0(n*C26/2. 

C86aC85*C10*0RHaH 
C87a6ETA*ALPH*C26-C86*C56 
CaeaCaSaDRHQH 
0UMiaC23-03CH/8Caj 
1F(N3PMI)003. 003,400 
OOO 00 006 KalfNSPHl 

CF3CK) a DCAPCK(K1/CAPC(I) 

O06 CK0(K)8CK3(Kj-03CK(K)/3C(l) 

00 010 Kbi,NSPK 1 
0UM2aCl6 • SP(2,I,K) 

CKl (K)aC20*CK3(K j-C25*0PRK(K)-C3*00RK tK)*TTVc 
CK2(K)aO, 

CK5(K)aO. 

DUM3aZK(Kj-SP(l,I,K) 

CK6(K)aC16*(ZKP(K)*VMU0P«0UM3) 

CK6(K)a 0UH2*0UH1 
CK13(K)8C8S*ORHOK(K) 

CK10(K)aO. 

CKl5(K)aO. 

CKl6(K)aO. 

CKl7(K)aCll*DCAPCK(K) 

CK16(X)aCl*SP(l, I,K) 

CKl6(K)aCK6(K)*C10 

CK20(K)a0, 

CK21 (K)a-CK16{K)*C56-0UM2/ALPH 

olO CK22(K)aCK6(K)*SP(l,I,K)*clO 
00 010 KKal,N3PMl 

CKKl (K,KK)3C16*(0ZKK(K,KK)+0UM3*0MU0K(KKi ) 

CKK3(K,KK jaDPHIKK(K,t<K) 
alO CKK2tK,KKjaOUM2*CKa(KK) 

O03 CONTINUE 
return 
ENO 
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1 . 

2.' 

3, 

«. 

5, 

<>, 

f. 

fl. 

10 . 

u; 

12 . 

13 . 

10, 

15. 

1«>. 

17. 

1«. 

lo; 

20. 

21. 

22. 

23. 

2a. 

25. 

26, 
27. 
2a. 
20. 
30. 
3). 

32. 

33, 
30, 

35. 

36. 

37. 
3B. 
30. 
00 . 
01 . 
02 . 
03. 
oa. 

05. 

06. 
07. 

oa.' 

00 . 

50. 

51. ' 

52. 

53. 

I'*' 

55. 

56. 

S’, 

5R. 

so; 

60. 

61 . 


CSoOA 

SUBROUTINE RECASE 

COMMON/CR8COH/HCAR8,EMIS,ST£F,AOUM,80UM,CDUM,HTEF,HMAT,EMISC.EMIST 

UHP6'iASU(3)#B8U(3)iHPYG(3),HCHAR(3),EHIV(J),k3(00).ISU 

COMMON/ETACOM/ETA(l5),t)ETAa5),DSOtiaj,OCU(lU),Bl(ia),B2noi 

1, LAR(123)>SA1 caS. 18).BA2(30.15) 

COMMQN/INTCOM/ KR(20 j»KIN,K0UT,HATlI,MAT2I|HATlJ,'M*T2J,NETA, I, I3,N 
lS«lTtNTIHE»NSP|NSPHl,NAM>NLEQ,NNLEO,NRNL> I T3« K APP A , CB AR ,'c ASE ( 1 5 ) 

2, B(8). HWE»NQN,KQ(10). ITEM, NITCM,KR17, NUT, NBT2,IOENT,KRO(O0) 

3, KAUX0, JTlME,J8PeC,M0(3),IU,I3H 
a.KONRFT 

COMMON/fiPTCOM/ F2FIX(15 ),kR10,NPMI,NPOINT,RATLIM 
1,0UMU(15),KTUR8,KAPPaT,NETAT,F2FIXT(15) 

COMMON/PRHCOM/TIMEC 50),PRE(il0)#PTET( 50),CE( SO ) , S f 00 ) , POX AP (AO ) 

1, RNOSE,VKAP,NOISC,IDI3C(ao),NSO(5),MSD(5),ITF( 50 ) , IPRE , RAONC , CONE 

2, RADFL( 50i,RAOR(00),RAOS(00),IRAO 

COMMON/UN ICOM/UC0,UCE,UCL,UCM,UCP,UCR,UCS,UCT,UCV, ITOK 
I ,IUNIT,IPL0T,KA(2,1«>) 

COMMON/SLPCOM/ keogp 
EOUI valence (RTH,PTET(9n 

1 FORMAT(20I1,ISA«) 

2 F0RMAT(I2) 

3 EORMAT(12/(7EIO.O)) 

0 FORMAT(lHliaX07HJANNAF BOUNDARY LAYER INTEGRAL MATRIX PROCEDURE 
1//,25X,25H8LIHP-J HOD 2 JULY 197S , 

S//ax ,OOHACUREX CQRP. AEROTHERM DIV,,MT. V I E W, C AL IF . / 2X3 A6// 1 X ,5H 
2CASE ,15A0,/^"8X,75HC0NTRoL NUMBERS 1 2 3 0 5 6 7 8 0 10 

3ll 12 13 10 15 16 17 18 19 20,//,23X,20I3) 

5 FORMATC7E10.U) 

6 FORMAT (I2,E10.a,2l2,Fl0.a,3l2) 

0 F0RMAT(21in 

to FORMAT (/,IOX70HU/UE TO NODAL PT. GAMMA MOLECULAR 

1 /OXlfiHNORM. eta at WHICH13XOOHMEI6HT 

2 /ioxoheta norm,) 

8 FORMAT(3XlPE10.3,9XI2,6X9clO,3/(30X9E10,3)) 

11 FORMAT (/,5X70MU/UE TO . NODAL PT, 

1 eta values /0X23HN0RM, ETA AT WHICH 

2 /19X9HETA NORM,) 

12 FORMAT (/2X,15HN0SE RADIUS, FT , IPE 1 2 , 5 , 5X , 1 6HC0NE HALF ANCLE ,1PE1 
12.5, 8H DEGREES) 

13 FORMAT (/,1X,23MTIME,SEC , 1 P8E 1 2 ,'5/ (2ax , 1 P8E1 2.’5 ) ) 

lu format {/, IX, 16HT0TAL ENTHALPY, A6 ,1X , 1 P8E 1 2 ,5/ ( 2U X , i P8E V2 , 5 ) ) 

16 FORMAT (/, 1X,23HCASE , 1 P6E 1 2 .5/ (20X , 1 P8E 1 2. 5 ) ) 

15 FORMAT (/,1X,16HT0TAL PRESSURE, A6 ,1X , IPBE 1 2 .5/ C2UX , i P8E 1 2 .5) ) 

16 F0RMAT(A2,I2,I6) 

17 FORMAT (/,1X,17H1NCID, RAD FLUX, A6 , 1 PBE 1 2 . 5/ f 2UX . i P6E 1 2. 5 ) ) 
20 FORMAT!/, IX, S6HSURFACE RECESSION « WALL TEMPERATURE RELATION FOR T 

lEFLON//5X,a3HSURFACE RECESSION RATE, LB/SEC FT2 s EXPtff.'lP E12.5, 
26 H)*TWa(,1P E12,5,7H))*TW+(,1P E 12.5, 2H) ) , //5X , 37HWHFRE TW IS WALL 

3 temperature in deg R) 

23 FORMAT (5X,39HThE REFIT OPTION IS LIMITED TO 15 NODES) 

C N0TE..,KR(S)«0 for E0UIL,3 FOR EQUIL WITH ENTROPY LAYER.' 1 
C FOR NONEQUIL, AND 2 FOR NONEQUIL WITH ENTROPY L AYER. .’.RnKAP«l FOR 

C planar, . (KR( 6)al AND 3 FOR BLUNT AND SHARP, RESP) AND IS EQUAL TO 

C distance from axis of symmetry to BODY SURFACE FOR AXISYM.. 

C (KR(6)«0 AND 2 FOR BLUNT AND SHARP, RESPECTIVELY)... KR(7)aO FOR 

C MULTICOMPONENT B.L. AND#1 FOR HOMOGENEOUS B.L . .'iDISCaO FOR NO 

C DISCONTINUITY AND UNITY FOR DISC. IN R0KAP,Fw, OR RHOWVW 
DATA MD(2)/6H / 

CALL DATE (9,MD) 

CALL TOD ( 18, MO) 
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62, 


REA0(KIN»1)KR«CASE 

63. 


WRITE(KOUT,4)MO,C4SE,KR 



NSDCSisO 

65. 


MaO 

66. 


iFlKRdi.LE.l iCO TO 32 



NSD(5)«1 

68. 


NLBl 

60. 


KR(l)aKR(n-2 

70, 

32 

CONTINUE 

71. 


KEOGP a 0 



IPLOTbO 

73 , 


IF(KRn3j.CE,2) iPLOTal 

7S 


KR(l3iaKR(l3)-2*IPLOT 

VS. 


lUNlTaKRCiS) 

76^ 


IF(KR(13),EQ.0J go to 100 

77, 


UCDal ,0 

78. 


UCEal.O 

79 . 


UCLal.O 

60. 


UCMsl ,0 

81.' 


UCPal.O 

«2, 


UCRat.O 

83, 


UCSal.O 

8«. 


UCTal.O 

85, 


(JCVal.O 

86, 


kR(13)«0 

87. 

lOO 

CONTINUE 

88. 


RADFLCSiaUCL 

89. 


RADFL(6ja22,/7. 

90 


IF(KR(3)-2) 30.30.31 

91.' 

31 

Kff(3j a KR(3i-3 

92, 


KEOGP a 1 

93 ' 

30 

CONTINUE 

9U.- 


<0(9)80 

95. 


ITOKaO 

96. 


lTF(lJ)aKR(8) 

’7, 


KP(8)aO 

98. 


IF(KR(6).NE,3) go to 110 

99. 


iTOKal 

100, 


RAOFUSial ,0 

101. 


RADFL(6)aO,5 

102. 

? 10 

CONTINUE 

103, 


IF(KR(6) ,NE,7) GO TO 2402 

104. 


KR(6)a8 

105, 


iTOKaJ 

106, 


GO TO 2401 

107. 

2402 

IF(KR(6),NE,6) GO TO 2401 

108. 


KP(6) a 4 

109. 


ITOKal 

110. 

2fl01 

IFCKR(6)-8) 245.240,245 

111 .' 

?40 

K0(9)a-l 

112, 


KR(6)a4 

113. 


GO TO 255 

lu; 

?45 

lF(KR(6)-4) 255.255,250 

115. 

250 

KQ(9)al 

116, 


KR(6)aKR(6)>5 

117, 

255 

CONTINUE 

118. 


IF(NL.EQ.O) go to 33 

119. 


CALL MISCIN 

i2o; 


NSPHIbNSP-1 

121. 


NiTEMal 

122. 


TIME(l)a-l.O 

123, 


NTIHEbI 

124. 


IF (ITOK)3022,3022,34 

125. 

33 

REA0(KIN,24) nsP.ks 
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24 

FORMA7(I2,8X50I1) 

127, 


NSPMlaNSP-l 

128- 


NITEMbI 

124, 


TIME(1)b-1,0 

130, 


NTIHEbI 

131, 


READ(KINi 24) NSfKRO 

132. 


IF(ITDK.EQ.O) GO TO 3021 

133,‘ 


READ(KIN,5i 3(1) 

IJa. 

34 

CONTINUE 

135, 


call GEOM(S»ROKAP,PRE»KlN,N0T,N8T2,N3,PTET,lTF(12),GEf ITF(14), 

136, 


ITF(l5h 

15’, 


GO TO 3022 

138. 

3o2l 

READ(KIN,5)(S(IS).I3s1,NS) 

150, 

3o22 

KAUXObI 

140. 


IF(KR (14}.2) 303>303>302 

lai. 

50 2 

KAUXObKR (14)-1 

laa. 


KR (14)bKR (14)-i 

143.' 

C 

compute INFORMATION NEEDED TO CONSIDER DISCONTINUITIES 

144, 

503 

NDISCbo 

145. 


IDISC(1)bMaX0(IDISC(i><1) 

146, 


Sn)»A88(3(l)i 

147. 


IF (N3-1) 105,105.1021 

14«, 

1021 

DO 101 ISb2,NS 

lUQ. 


IF(S(ISi) 103.101.101 

150. 

Toi 

NDISCBNDISCTI 

151, 


S(IS)a-S(IS) 

isa. 


IOISC(lS)aMAXO(IDI3C(lS). 1 ) 

153, 

iol 

CONTINUE 


)05 

CONTINUE 

155: 


IF(NL.NE.O)GO to 605 

156." 


IF (KR(1)) 1051,1051.1052 

157,- 

l052 

read (KIN, 3) NETA,(ETA(l),lal,NETAj 

158, 


READ (KIN, 6) KAPPA,C8AR,KONRFTiNP0INT,R4TLIM,KTlJRB,KAPPAT,NETAT 

150. 


IF (KONRFT.EO.d) GO TO 10S« 

160. 


KR10»KR(10) 

16), 


IF (NeTA.GT.15) GO TO 1055 

162. 


GO TO 1056 

163.' 

1055 

WRITE (K0UT,23) 

164, 


STOP 

165. 

lo56 

read (KIN, 5) (F2FIX(I),Ibi,NETA) 

166. 


IF (KTURB.EQ.O) GO TO 1054 

167. 


READ (KIN.S) (F2F1XT(I),Ibi,NETAT) 

16a. 


NPMlaNPOINT-1 

i6o; 

1o54 

continue 

170. 

lo5l 

CONTINUE 

ni.' 

605 

WRITE(KOUT.ll) 

172. 


WRITE(K0UT,8) C8AR.KAPPA, (ETAdi.Ial.NETA) 

175, 


IF(NL,EQ.O)GO TO 35 

174. 


IF(KR(6),E0,3)G0 to 37 

175, 


IF(ITOK) 2173,2173.2073 

176. 

35 

CONTINUE 

177. 

606 

IF(KR(6)-n 203,203,204 

178, 

201 

read (KIN.S) CONE, RNOSE 

170. 

?04 

IF(IABS(KR(6)-2)-1) 207,208,207 

180. 

207 

READ(KIN,5)RTM 

181.' 


IFdTOK.NE.O) GO TO 2073 

182, 


REA0(KIN,5) (ROKAP(IS).ISal,NS) 

183. 

2i73 

DO 2074 I3a2,NS 

184. 


0SaS(IS)-3(IS-l) 

185, 


DRaROKAP(IS)-ROKAPdS-l) 

186. 

2o74 

pTETdS + 10)BpTETdS + 9)*SQRT(O3POS»DR*DR) 

187. 

2073 

VbRTM«UCL 

188. 


DO 2072 ISal.NS 

180. 


PTETd8 + 10)PPTET(IS + i0)*RTM 
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190. 


S(I3)b3(I31*V 

191i 

2072 

R0KAP(I9}bR0KAP(I3)*V 

19?. 


IP (N3-1) 234,234,2071 

193. 

2o7l 

1I3«2 

194^ 


LNZ»1 

19S. 


IP(R0KAP(1)) 223.226,226 

l'»^v 

223 

RADNOo-ROKAP(l) 

197. 


WRITE (KOUT, 12) RAOnO,COnE 

19B. 


ROKAPCnaO, 

199. 


00 229 IS«1,NS 

200, 


IP(R0KAP(IS)} 224.224,225 

201 . 

224 

lP(KR(6i) 221,221,222 

202.’ 

222 

ROK AP (IS)«3( IS) *SlN(RA0N0/57. 29578) 

203. 


GO TO 229 

204. 

221 

ROKAP(IS)BRAONO*9lN(3(IS)/RADNO) 

205. 

229 

CONTINUE 

206. 


GO TO 234 

207. 

225 

IP (IS-N3) 2251,234,234 

20s; 

2?51 

IISaIS+1 

209, 


LNZsIS 

210. 

226 

00233 I9aII9,NS 

211. 


IP(RQKAP(I3)) 233.233.227 

212. 

227 

IP(I8-1-LNZ) 232,232,228 

213.' 

228 

LNZaLNZ^l 

214, 


ROKAP{LNZ)aROKAP(UNZ-l)*{S(I.N2)-8(tN2-l))/(3n8)-S(LNZ« 

215. 


1I3)-R0KAP(LNZ-D) 

216. 


GO TO 227 

217, 

232 

LNZaI3 

2 in. 

233 

CONTINUE 

219. 

234 

VKAP«1. 

220. 


GO TO 210 

22), 

208 

REA0(KIN,S) RTM 

222. 

37 

vbrtm*ucl 

223, 


OO 209 ISal,NS 

224, 


PTET( 13+10 )apTET(lS*10)*RTM 

225. 


S(IS)a9(IS)*V 

226, 

209 

ROKAP(I3)8l.O 

227. 


VKAPaO, 

22fl. 

210 

CONTINUE 

229, 

181 

STEF a .481E-12 

230. 


IP (KR(9)-3) 197,193,198 

231, 

198 

IP (KR(9)-4) 193,193,197 

232. 

197 

00 191 jal,N3 

233. 


IP (KR9(J)-3) 191,193,192 

234,- 

192 

IP (KR9(J)-4) 191,193,191 

235, 

T9l 

CONTINUE 

236. 


GO TO 199 

237, 

. 193 

HEA0<K1N,21) (EMIV(I),HCHAR{I). HPTG(I). I»1.3) 

238. 


READ(KIn, 22) (ASU(I),B3U(I), lal,3) 

239.- 

22 

F0RMAT(6A4) 

24 0.' 

21 

F0RMAT(9E8,3) 

241. 

19 

P0RMAT(/1X39HQUA3I-3TE4DV ENERGY BALANCE AT THE WALL//5 

242. 


1 NUH8ER28XIH114XIH214XIH3/5X17HSURFACE EH1TTANCE17X1P3E 

243,- 

2NTHALPY OP CHAR AT Rgp TCMPA6» 3e 1 5. 5/5X , 28HENTHAL PT OP 1 

244^. 

3aS A6,3E15.5/5X27HeQUILlSRIUH SURFACE SPECIES 5X3(7X2- 

245, 


jalUNIT+1 

246. 


WRI7E(K0U7,19)ENIV,KA(J,lS,HCHAR,KA(J,l),HPYG, 

247, 


l(ASU(I),BSU(I),Ial,3) 

248, 


00 1931 Ial,3 

249. 


HCHAR{I)bHCHAR(I)*UCE 

250, 

1931 

HPYG(I)aHPYG(I)*UCE 

251. 

l9R 

IF (KR(9)-S) 194,196,196 

252, 

194 

DO 193 Jal,N9 

253. 


K9HbKR9(J) 


m*(BnKAP( 


pypotrsis G 
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If (KR9(ji-5) 
fRS CONTINUE 
GO TO 162 

1«»<, K9R«MAX0(K9R,KR(9) j 
If (K9R.E0.7)C0 TO 200 
READ(KlN»3)EMIST,HTEf I ADU h*BOUH,CDUM 
write (K0UT,20) aduh.boum.coum 

J»IUNIT+1 

WRITE (KQUT, 28 )EHIST,HTEf,KA(J,i) 

28 F0RMAT(/,5Xf 17HTEFL0N PROPERTIES,/, 10X,20H8URFACE EMITTANCE b , 
1 1PE13.S,/,10X,28NENTHALPV Of VIRGIN TEfUON s .IPElJ.'s.lH ,A<.) 

GO TO 162 

?00 READ(K1N,S3EMIST,HTEF 
JBIUNITAI 

WRITE (KOUT, 29 )EMI3T,hTEF,kA(J,1) 

29 FORHAT(/,6X,21HADtABATIC WALL OPTION,/, 

17X,20HSURfACE EHITTANCE • ,E12.S,/, 

27X,34HIN!TIAL ENTHALPT OF TRANSPIRANT b ,IPE12.'5,1H .Afc) 

T82 IF(NL.NE.O) go to 2200 

REAO(KIN,5)PTET(i )»PTET(2) 

READ(KIN,5)(CE(IT), IT81,NITEm) 

REA0(KlN,5HRA0FL(ITi, ITb1,NITEM) 

2?00 IffTIMEOn 2201,220,220 

2201 TlMEdlB-TIMEd) 

WRITE (KOUT, 18) (TIME(1),Ib1,NITEM) 

TIMEd)B-TIMEdi 
GO TO 2202 

220 write (KOUT, 13) (TIMEdl ,Ial,NITEM) 

2202 JaIUNIT+1 

wRITE(KOUT,l<t) KA(J,1), (GE(l),l8l,NITEM) 

WRITE(K0UT,1S) KA(J,2), (PTET(I),Ib1,NITEM) 
wRITE(KOUT,1T) K4(J,11),<RA0FL(I),Ib1,NITEM) 

PTETd)«PTETd)*UCP 

GEd)«G?d)*UCE 

RAOFLd)BRADFLd)*UCR 

RETURN 

END 
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B09B, 6E0M 


1, 

3. 

S. 

fc.' 

7, 

fl. 

”, 

in. 

11. 

la. 

13 . 

i«. 

15. 

16. ' 
17. 
Ifl. 
I**. 
2". 
21 . 
22,- 
23. 
2«, 

2h. 

27.’ 

2B. 

2”,' 

Sn. 

31, 

32, 

33 , 
3 «.‘ 
35 . 
30, 
37 . 
3«: 
30. 

an. 

a I. 
<i2. 
«3. 

««, 

U5. 

Uh,' 

a7.' 

an: 

ao; 

5". 

51. 

52. 

53. ' 
50, 

55. 

56. ' 

57. 

58. 
50. 

on.’ 
81 . 


SUBROUTINE GEOM ( S , R , P , K I N, N8T , N0T2, N3, PTE T , NTH , GE , IP . IlJ 1 
COMMON/BLOCOM/A(900) 

COMMON/EDGCOM/ PE(R 0 , li.PTECUO, n,SPE( fe.UO, h.OUES, 

lUE(40)»RHOE(aO), VHUE(40)»TE(aO)«UEOGE*DUEDGE.D2UEDG,VMWE.HE,COO 
2,OSrP(aO),IOSrP,TTVC,TVCC(«O).HEA(«0).SP(2O),CSf2O),CSPR(201. 
3CG(20),CGP(20) ,3 REF,GEP»NeN,UINF,RH0INF,HINF,PINF 
COHMON/EQPCOM/Z(2000) 

COMMON/HI3COM/Cl,CJ,C3»Ctt,ALPHD,0ETA,ZM(U, l«),ZG(a. lai.ZSPfa, 1«, 6 
I ) ,XI (40) ,HF(15,51,HG(15,3).HSP(1S,3, 6 ) , HALPH , HUE . HHUE , HFW, oLX 2 
2,C3M(a0),BETAH(40),B£TAV(o0) 

COMMON/NONCOM/UEl (500) »DP0X (500), OUDXt 500), 0X03(500 ) ,OUM( 500) 
COMMON/UNICOM/ UCD,UfE,UCL,UCM,UCP,UCR,UC3,UCT,UCV, TTDK 
1,IUNIT,IPL0T,KA(2,1«)) 

OIMEN3ION S{40),R(4O),P(4o),NP(« 0),XITAB(S00 j, VITAB(500) 

1, PI TAB (500), VS (500 ),VA (500) 

2, PTET(50),GE(50) 

equivalence (XITaB(1),Z(1)),(VITA8(1),Z(501)) 

1 ,(P 1 TAB (1 j,Z(100n),(VS(l),Z(1501)),(VA(n,A(l) j,(NP(n,A(50i)) 
NAMEL1ST/1NPUT/N,NTH,NP,IP,IU,0PDX,0U0X,UEI,XITAB, YITAR.PITAB 
WRITE(NBT)Z,A 
ENOFIUE NBT 
REWINO NBT 
Jol 

READ(K1N, INPUT) 

C N NO. OF STATIONS OF TOK oATa 

C NP(IT) IOEnTITY of tok stations USEO In blimp 
VS(1)«S(1) 

IF(nP(1),NE.1) go to 201 
J»2 

R(I)aYITAB(l) 

P(1)oPITAB(1) 

PTETdl )»xrTA8(l) 

GEdDal.O 
?01 00 101 1«2,N 

VXaXlTAB(I)-XITA8d-l) 

vr»yitab(i)-yitab(i-i) 

VS(I)aVS(I-l)+SQRT(vX*VX+vP*VR) 

IF(J.NE.I) VA(I)aATAN2(VR,VX) 

IF(aB9(NP(J)),NE.I) go to 101 
IF(J.NE.l) GO TO 103 
03aVS(I)-S(l) 

00 104 II»1,I 
lOa VS(II)aVS(II)-03 
i03 S(J)aVS(lj 

C NEG. S SETS FLAG FOR DISCONTINUITY 

1F(NP(J).GT,0)GO to 105 
NP{J)«-NP(J) 

S(J)«-S(jj 
t05 R(J)*YITAB(I) 

P(J)»P1TA8(I) 

PTET(J+10)«XITA8d) 

GE(J>10)»C08(VA(I)) 

C 6E(11) to GE(50) are used TO CARRY COS(WALL ANGLE) FOR USE IN 
C THRUST LOSS CALCULATION 

C PTETdl) TO PTET(50) ARE USED TO CARRY XITAB FOR OUTPUT ONLY 
jBj+1 

101 CONTINUE 

IF(IUAIP.EQ.O) GO TO 111 

iFdP.EO.lj call 3LOPL(N,vSd),PlTABd),OPOX(l j.OUMdi) 

IF(IU.EQ.I) CALL SL0PL(N,vS(1), UE I ( 1 ) , OUDX ( 1 ) , DUM ( 1) ) 

C NOTE that S and P ARE NORMALIZED BY RTH AND PSTAG RESPEC.' MUST UN 
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bZ* 

63* 

6U* 

65* 

66 * 

67* 

68 * 

69* 

70* 

7t* 

72* 

73* 

7a* 

75* 

76* 

77* 

78* 

79* 

80* 

8l* 

82 * 

83* 

8a* 

85* 


C 


c 


c 


THIS LATER IN B07A. 

rPdP. EO. 2. OR. lU.EQ, 2) CALL SlOPL (N, VS ( 1 ) , XI TAB ( t ) , OKOS ( ij , j ) 

PQ 110 L«1«NS 

T»NP(L) 

PUT DPDS into BETam and duos into betav, 

TP(IP-I) 112*113,114 
llS.RETAMlUaOPDXni 
r.O TO 1}2 

lia 8ETAH(L)B0PDX(I)*DXOS(n 
U2 TF(IU-I) 110*115, 116 

115 RETAV(L)«DUDX(lj 
r,n TO 1^7 

116 RETAV(L)aDUDX(I)*OXDS<I j 

117 llE(Li»UEI(I)*UCL 

IICL PUTS UE INTO blimp UNITS 

110 CONTINUE 

111 CONTINUE 

HHITE(NBT2)N,XITab, YITAB,V3,PiTA8,NP,VA 

FNPFILE NBT2 

pEWInD n8T2 

REAOfNBTiZ.A 

rewind NBT 

return 

END 
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1 . 

3. 

«. 

5. 

f. 

ft. 

Q ■ 


CRi OA 


subroutine HISTXI 

COMMON/EOGCOM/ PE(«0. n,PT£(aO» 1),SPE( h.OUES, 

lUE(aoj»RHOE(aO)» VMUE(40),TE(a0),UEDCE.0UE0GE,D2 UE()G, VMWP.hE.CPO 
2 ,DSIP(aOj,IDSIP,TTVC,TVCC(«0) 

COMMON/ETACOM/ETAOS j,0ETA(15).DS0(ia) ,OCU( lu) ,B1 nai ,B2fia j 
l,LAR(123),BAl taj, 18),BA2(30,15) 

COHHON/HISCOM/Cl .C2,C3 .C<», AUPHD, beta. ZM(U, 14 S, 20(0. lui.ZSPfU, lU. 6 
I ).XI(O0).HFnS.5).HG(15.3)*H3P(!5.3. 6 ) . HALPW, HUE . HHUf , hFW , dL X2 


1 ft. 


2,C3M(00).BETAM(001 

lU 


3 .BETAV(OO) 

1 ??. 


COMMON/ I NTCQM/ KR(20),KIN.KOUT.MAT1I.MAT2I.HaT1J.MAT2J.NETA.I.IS,N 

13; 


IS. IT.NTIME.NSP.NSPMI .NAM.NLEO.NNLEQ. NRNL. IT3.KAPPA,CBAO,CASP(15) 



2.BC8). MWE.NnN.KOdOi. ITEM.NITEM.KR17.NBT.NRT2, IDFNT.KRQCOO) 

15. 


3,KAUX0,JTIME, JSPEC,M0(3),IU,I3H 



C0MM0N/PRMC0M/TIME( SO),PRE(00),PTET( 50),CEf 50i,S(00),ROKAP(00) 



1,RN03E,VKAP,NOISC.1D1SC{00)»NSD(5),MSD(5),1TF( 50 i , IPRE , RAONO , CONE 

IB. 


2,PADFU( 50).RA0R(O0),RAOS(O0).!RAD 

lO. 


COMMON/VARCQM/F (0, 15),G(3,15),SP(3, 15, 7) ,ALPH 

2 "^ 


COMMON/HALCOM/FW(00, l),TW(00, n.HWtOO. D.SPWt 8.00, n 

21 . 


l.RHOVWfOO, li.FLUXJf 3,00, 1 ) , IHW, I fW, IFW , I SPW , IRHOVW, IFL UX J 

22 . 


DIMENSION F0(0) ,G0(0i,3P0(0) 

23.‘ 

C 

INITIALIZE AXIAL variation TERMS 

2 “, 


NULbO 

25, 


iFdS.NE.l )G0 TO 3P9 

2 ft, 

3 P 8 

iPdOlScdSI.NE.aiGO to 3RP 

2 t' 


ISbIS*1 

2 «. 


GO TO 398 

2 '’. 

3 PO 

IF(KR(3) .EQ.OIGO TO i50 

3ft. 


lFdU-2) 150,152,155 

31. 

TS2 

0LXle2.3 

32, 


IF(KR(6) .EO,0)DLX1b3.5 

33. 


iFCXIdSHjj 157, 157, 155 


TSo 

OZaO. 

35. 


DlBO. 

3ft. 


02«0. 

37. 


IF(KR(2).LT,0) I3«-KR(2) 

3B. 


IF(KR(2) .LT.Oi lOlScdSlBi 

3R. 


MSNETA-1 

Oft, 


00 100 iBt.M 

01,. 


OO loO Jsl.o 

02. 


ZM(J,I)80. 

03. 

139 

00 100 KbNUL,NSPMI 

00, 


ZSPCJ, I,K)bO. 

05. 

Too 

continue 

Oh. 


00 101 IbI.NETA 



DO 102 Jb1,3 

Oft. 


HFd.JlaO. . 

OP. 

15P 

00 102 KaNUL.NSPMl 

5<’, 


HSPd,J,K)aO, 

5l' 

702 

CONTINUE 

52.' 


HFCI.fllaO, 

53, 

?01 

HFd,5)ao. 

50.' 


alphdpo. 

55. 


halphbo , 

56.' 


DLX2B0, 

57, 


GO TO 130 

SB. 

c 

COMPUTE TWO- OR three-point DIFFERENCE RELATIONS 

5®, 

755 

OLXlaALOGCXIdSl/XIdSH}) 

Aft. 


lFdU.GT.2.AND.KR(3}.E0.2.AND.lOI3C(I3H),NE,|) GO TO I2l 

61 . 

157 

0Za2,/0LXl 
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Dla-OZ 

63, 


02>0. 

6U. 


GO TO 145 

65, 

T2l 

0ZaDLXU0LX2 

66, 


Dl«-0Z/{Dl.XUDLX21*2. 

67. 


D2bDLX1/(0Z*DLX2)*2. 

6fl, 


DZa>Dl*D2 

64. 

IT 

DLX2aDLXl 

7n, 


ALPHDaDl*ALPH+D2*HALPK 

71, 


HALPHbALPH 

72. 

122 

FD(3)aDl*F(4, n+02*HFO,4} 

73, 


GD(3iaDl*G(3, l)«02*HG(i,3) 

74. 


00 147 Ita.NETA 

75, 


FD(l)8Dl*P(2,h+02*HF(l»2} 

76. 


FD(2iaDl*F(3,I)+D2*HF(I,3) 

77. 


F0(4 jaFD(3i 

7fl, 


FD(3)a01*F(4, I)+D2*HF{I.4) 

74. 


CALL TAYLQR(DETA(I-n,F 0 ( 2 ),F 0 (li.ZM(l,I-n) 

80. 


G0(l)aDl*G(l,l)*D2*H0(I»l j 

81. 


GD(2)s01*G(2, I)«02*HG(!,2) 

82. 


G0(0)aGD(3) 

83. 


GD(3)b01*G(3. I)702*HG(I,3) 

94, 

147 

CALL TaYL 0 R( 0 ETA(I -1 )»G0(2)#G0(n.ZC(l»l-n) 

85. 


IF(N3PMn 162 , 162,166 

86. 

?66 

DO 151 KBi.NSPMl 

87. 


SPD(3)b01*SP(3,1,K)«02*H3P(1,3,K) 

88. 


00 151 la2,NETA 

84. 


SP0(na01*3P(l,I,K)A02*HSpn,l,K) 

40. 


3P0(2)8Dl*3P(2,l,K)*02*H3pn,2,K) 



SP0(4)bSP0(3) 

42, 


SP0{3)bD1*SP(3,I,K)+02*H3p(I,3,K) 

43. 

iSl 

CALL TAYLOR (OETA ( I-i ) , 3PD(2) , SPD ( 1 ) , Z3P ( 1 , I- 

44.- 


•SAVE HISTORIC VALUES 

45. 

?62 

00 164 IBI.NETA 

46. 


HF(I,4)BF(4,n 

47. 


HF(I,5)B01*P(l,n+02*HFa,l) 

48. 


00 164 JB},3 

44. 


HF(I,J)bF(J,I) 

100. 


HG<I,J}sG(J,I) 

10),. 


IF(N3PH1) 164,160,165 

102. 

165 

DO 149 KBj,N3PMl 

103. 

149 

HSP{I,J,K)bSP(J,I.K) 

104, 

164 

CONTINUE 

105. 

C 

COMPUTE GROUPINGS WHICH DEPEND ON OZ 

106. 

?30 

Clal.*DZ 

107. 


C2B-C1-0Z 

108, 


C3aC3M(IS) 

104. 


0£TAB0ETAM(ISi 

110, 


C4b0ETAV(IS)+C1 

111. 

4904 

FOrmAT(6XI2/0X1P1OE1O.3/8x8E1O,5/(8X1OE1O,3) ) 

112. 


IF(KR(17)i 9905,9906.9905 

115, 

9q05 

CONTINUE 

114. 


WRITE(K0UT,4907) 

115. 

4907 

FORMAT (2X27H0EBUG IS,OLXi . . . ZM, ZC,HF, HC ) 

116. 


WRITE(KOUT,9904 j IS , OL*! , 0LX2 » OZ , 0 1 , 02 , ALPHD , 

117, 


1,G0, ((ZM(I,J),Jal,6),lBl,a),((ZG(I,J),jBl,6), 

118. 


2 Jb1,5),Ib 1,7), ((HG(I,J),j3l,3),lBl,7) 

114. 


IF(NSPMI) 9906,9906,9908 

120, 

9908 

WRITE(KOUT,9909) ( ((ZSP(I,J,K),Kal,NSPMl), Jsl, 

121. 


1 K),K3l,NSPMl),jBl,3i,lBl,7) 

122,- 

9909 

format (2X13HDEBUG Z3P, H3P/ (2X1 OE 1 0 . 3 ) ) 

123. 

9906 

CONTINUE 

124. 


RETURN 

125. 


END 


FD 
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t . 

2, 

5, 

а. 
5, 

б. 
7. 
«. 
0. 

1ft. 
11 . 
12 . 
13. 
M. 
is: 
16 . 
»7, 
Ifi. 
1ft. 
2ft. 
21 . 
22 . 
23. 
2“. 

25, 

26 . 
27, 
2B, 
2ft. 
3ft, 
31. 
12. 
33. 
la. 

35, 

36. 
3T. 
3fl, 
3ft. 

«ft, 

«1, 

" 2 . 

«3, 

4 «. 

45,- 

" 6 . 

48. 

4Q, 

5ft, 

51. 

52. 
53 : 

54. 

55. 

56. 
5T. 
58. 
5ft. ■ 
60 . 
61. 


CBiU 

SUBROUTINE OUTPUT 

dimension cij( 6o»n 

COMMON/BLOCOM/ M0A{ 60), MOB( 60),NSPEC,FRf 60 , 1 5 j . W ( 3 ) , LEF ( 8) 

1 ,LEF3{ 8i,PlEASE,LEFM{ 8j,L2,Ll 

COMMON/COECOM/ C5,C6,C7,C8,C9,C10,C1 1,C12,C13,CI4,C15 

l,C16,C17,Cl8,Clft,C20,C21,C22,C23,C24,C25,C26,C27,C28,C2ft,C30.C31 ,C 
232,C33,C34,C35,C36,C37,C3S,C3ft,C40,C41,C42,C43.C44,C45.C46.C47,C4B 
3,C49,C50,C51,C52,C53,C54,c55,C56,C57,C5e,C5ft,C6 0.'C61 ,C6?,'C63.C64.C 
465,C66,C67,C6e,C6ft.C70,C71,C72.C73,C74,C75,C76,C77,C78,C7ft.C80,C8l 
5,C82,C83,Ce4,Ce5,Ce6,CB7,c88 

COMMON/CQECON/ CKK 6)>CK2( 6)fCK3( 6),CK4( 6 i . CK5 ( 6 1 . CK6 ( 6) 

1, CK7( 6),CK8( 6),CK9( 6),CK10( 6),CKH( b),CK12( 6),CK13( 6) 

2, CK14( 6),CK15( 6).CK16( 6),CK17( 6),CK18( 6),rxi9( 6),CK20( 6) 

3, CK2i( 6),CK22( 61,CKKt( 6, 6),CKK2( 6, 6 ) , Xm ( s ) . XG (5 ) , XSP (5 , 7) 

4, CKK3( 6, 6) 

COMMON/C80OOM/HCAR8.EMIS,3TEF,AOUM,BOUM,COUM,HTEF,HMAT,FmISC,EMIST 

1, HPC,A8U(3),BSU(3),HPYCC3),HCHAR(3),EMIv(3),KS(40).ISU 

COMMON/EOGCOM/ PE(40, 1),PTE(40, li.SPEf 6,40. li.DUES, 

IUE(40) ,RHOE(40) , VMUE(40),TE(40),UEDGE,OUEDGE,02UEDG, VMWE.HE.CftO 

2, D3IP(40),I08IP,TTVC,TVCC(40),HEA(40),5F(20).CS(20),CSPRf?0), 

3 CG(20),CGP(20),SREF,GEP,nEN 

COMHON/EPSCOM/ELCON, VAP,CLNUH,3cT,PRT,RED,DVS,PH0V8,PI,PIM,CL, 

1 EP3A(15),EP81,Eun5),0Pl(15,2),0EPC,TREF,BETR 

pOHMON/EQPCOM/Ra(60,3),RC(60,3),RO(60,3),RE(60,3),RFr60,3),R6(60,3 

n,TU{6O,3),FF(6O),FFA,IFC(6O),ATA(8),AT0(8),ATC(8),WAT(8),RA(6O,3i 

»• 

2 KATC 8), IRC 8),IZ,KZ(10),LAHI( 60),P,Z,TKC 8, 8).VN( 60), 

3 VNUC 60» 8),ITFF,KR2,HCH,NCV,WM,WTMC 60),TVy( 60),VWC 60),GG( 60) 

4 ,TQ( 8, 8),£POVRK,STCMA,aA5MOL 

COMMON/EQTCOM/3lP.Hlp,EEL,EENl.,FLlQ,CPF, IRE, lER, AA, IITS, IN, IL, IIT, 

1 MODE, HMEI.T, SMELT, TmaX, THIN, melt, 3UMN,SUM|.»WS,W83,BX, I SP2, 1 SPO, 

2 ISP,KKJ,SVA,3V8,3VC,3V0,3UMC,FFF,CMF,EP,RV,IFCJC,WTG.WTl, JC.HHG, 

3 CCPG,TTMIN,TTMAX,L7,L8,IB( ft),EBC 8),E8LC 8 ) , A C 1 4 , ) 4 ) , BB ( 14 ) , 

I 4 IP( 60),AlP( 8),FNUC 8),gAMH( 8),GAMF( 8),3LAM( 8),DYC 60),RV8, 

5 CP( 60),HH( 60), SBC 60),TC( 60),VLNKC 60), E; 60),PNUSC 8), 

6 BCC 8),BLNKC 8),8YC 8),IbCC 8),0EC 8),JZC 4) 
C0MM0NyETAC0M/ETAC15),0ET4C15),DS0C 14),0CUC 14) ,B1 C14) ,02(14) 

1, LARC123),8A1C43,18),BA2C30,15) 

COMMON/FLXCOM/DELQW,OELJWC 6),I"IaLL0,WALLJC 6),0W,VJKW( 7),TPwALL 
COMMON/HISCOM/Cl ,C2,C3,C4,ALPH0,BETA,ZMC4, 14) ,ZGC4, 14) , ZSP(4, 14, 6 
1 ),XIC40),HFC15,5),HGC15,3),H3PC15,3, 6 ) , HALPH, HUE , MHUE , HFW, DLX2 

2, CiMC40),BETAMC40) 

3, BETAVC40) 

COMMON/ 1 NTCQM/ KR C20 ) , K IN, KOUT , M AT 1 1 , MA T2 1 , MA T 1 J , M A T2 J , NET A , 1 , 1 3 , N 
13,1T,NTiME,NSP,NSPM1,NAM,NLE0,NNLE0,NRNL, ITS,kaPPA,C0AR,'caSEC15) 

2, BC8) , MWE,NaN,KQC10), ITEM,NITEM,KR17,N0T,N0T2, IDENT,KRftC40) 

3, KAUXO, JTImE, J3PEC,m0C3) 

4, IDUMC2) ,K0NRFT 

COMMON/RFTCOm/ F2FIX(15),OUM5C3),RATLIM,UKAPpac15) 
•,KTURB,KAPPAT,NETAT,F2FIXtC15),NETAL,KaPPAL 
COMMON/OUTCOM/Y c 15) , RES, 0ELST,THENGY,THM0M, CM, BLOW, SHEAR, CF, SHAPE 
1 ,CM( 7),THELEM( 7) 

COM«ON/PRMCOM/TIME( 50 ) , PRE C40 ) , PTET ( 50),CEf 50 ) , 8 (40 ) , ROK AP ( 40 ) 

1, RNOSE,VKAP,NDI3C,IOI3CC40),NSOC5),MSD(5),ITF( 50 ) , TPRF . RAONO.CONE 

2, RA0FLC 50),RAOR(40),RAOS(40),IPAO 

C0MM0N/PRPC0M/PR( 15) ,TC15),RH0C15),3CC15) ,CAPC(15) ,OR(15) ,H(15) 
1,CPBARC15),VMW(15),PHIK(15, 6) , DRHOH, DRHOK C 6),ZK( 6),DZKH( 6), 0 

2MU3KC 6),DMU4KC 6),0TK( 6),DPHIKHC 6),0PRK( 6),0SCK( 6),DCAPCK( 6) 

3, DHTILK( 6),0QRK( 6),DCP8kC 6),0CPTK( 6),0MU12K( 6),0ZKK( 6, 6) 

4, DPHIKK( 6, 6), OMU4H,OMU3H,OHTILH, VMU12,CT,CTR,CPTTL,HTIL 
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5, VMU3»0THiDCAPCH,OPRH,O8CH»OQ«H,oCPBH,OCPTHiOMUt?H,VMUn5 j . RHOP 
6(15).PHIKP(155.HP.TP,ZKP( 6) , VMUSP, VMUttP. HT ILP. CRHO 1 1 U j , CMP ( ) 5 ) 
COMMON/TEMCOM/SPDUMC 6),OER(40),OUMH1 (J5 ), slope n5i,RE0UM(l5> 
l.SOUMl (flO j ,30UM2(aO),FHOUM(aO).XICON(«0) ,FWCON(aO jf FWINITf 1 S 
a.xiiNiTt n#Duos( ao) 

COMMON/TURB/ STURB. OELCON.OCLNUM, TURPR ( IS ) 
COMMON/VARCOM/F(«,15),C(5.l5),SP(J,i5, 7),AUPH 
COMMON/WALCOM/FW(«0, t)»TW(«0, n,HW(40* l), 3 PW( 6.U0, 
l,RHOVW(i|0, n.FLUXJ( 3,40, 1 ) , IHW, ITW, IFW, ISPW, IRHOVW, IFLUXJ 
C0MM0N/UNIC0M/UCD,UCE,UCL,UCM,UCP,UCR,UC3,UCT,UCV, ITHK 
1 .IUNIT,IPL0T,XA(2,t9) 

C AP is used for the OUTPUT OF PLOT INFORMATIOig 
dimension AP(1) 

EOUl valence (AP(n.FWOUM(l)) 
equivalence (VnU,CIJ) 

1 FORMAT(/7X,80HALPHA RaOIUS pressure edge VEL. BETAP e 

IETAV heat FLUXES” A6,/ 

217X,A6,5X,A6,4X,A6,21X,3Th01FFU310NAL TOT ENTH RERAD OCOND,/ 

3SX,lPltE10.3) 

2 F0RMAT(/6X,4HWALL.7X, 12HMA83 FLUXES , A6, 18X , 32HELEMENTAL MASS OIFF 

lUSIVE fluxes ,A6,4H FOR / 5X, 50H 

2SHEAR mechanical PYROL CHAR TOTAL GAS 8(|X2A4.ixn 

tR FORMATC6X,A6,4X, ISHREHOVAL &AS) 

5 FORHAT(5X1P12E10.3) 

18 FORMAT(/6XIORHMOM TRANS H£AT TRANS SLOPING PARAMETERS EL 

IEMENTAL mass transfer COEFFICIENTS, /SXilOH 

2COEFF, COEFF, (NORM. BY RH0E*UE*ST) FOR CM, FOR 

3 /4X51H CF/2 

4 ST NO, PYROL GAS CHAR TOTAL GAS 
4 6(1X2A4, IX)) 

4 FORMAT(5.X70H MOMENTUM DISPLACE. EFFECTIVE ENTHALPY REYNOLDS maS 

IS thickness for */ , 

35X4RH THICKNESS, .THICKNESS, BODY THICKNESS, NUMBER ,/ 

45X44H theta DELSTAR DISPLACE, LAMBDA PER , Afc, 8 ( 1 X2A4 , i X ) ) 
120 F0RMAT(7X,4(A6,4X), 10X,7(A6,4X)) 

20 FORMAT(5X1P11E10.3) 

5 FORMAT(/2X17HNOOAL INFORMATION) 

6 FORMATCeX, 103HETA DISTANCE F U/UE FPP SHE 

lAR G, TOTAL GP GPP STATIC TEMP,/, 

28X,16H FROM WALL»R2x, eHENTHALPY,22X,6HENTHALPY,/, 

3l7X, Ab,34X, A6,5X, A6, ,4X,A8,4X, A6,4X,A(>,3X, A6) 

7 F0RMAT(6X,86HDISTANCE DENSITY VISCOSITY SPECIFIC THERMAL PR 

lANOTL modified MOLECULAR MACH,4X, 19HRH0S0*EPS TURBULENT,/, 
2SX,88HFR0M wall RHO MU HEAT . COND. NUMBER 

3 SCHMIDT weight number, 3X,20H/RHOE*MUE PRANOTL NO /, 

47X, A6,4X, A6,5X,A6,3X,A6,5x,A6, 13X6HNUM6ER) 

8 format (/2X78HELEMENTAL FRACTIONS AND THEIR FIRST AND SECOND DERIV 
UTIVES WITH RESPECT TO ETa,/) 

12 FORMATC/) 

13 FORMAT!/, 41X20HDI3TANCE FROM WALL, A6 , / ( 1 5X 1 P 1 OE 1 0 . 3/20 X 1 PRE 1 0 . 3 ) ) 

14 F0RMAT(6X,2A4, |X, lPtoE10,3^20X, JP9E10.3/(15X, tPtOE10.3/20X, IP 
1 9E10.3)) 

15 FORMAT (15X,lP10El0.3/20XlP9E10,3) 

16 format {/2X14HMOLE FRACTIONS,/) 

17 FORMATC/23H SURFACE SPECIES IS 2A4) 

XlO F0RMAT(A2,3I2,1P6E12.5) 

312 FORMAT(A2,3I2,lP6El2.3/(8x,lP6El2.5)) 

313 format (A2,6X,18A4/(20A4)) 

DATA IBLANK/2H / 

TVCF(X)a(3QRT(AMAXl(0,,l.*2,*CO3OR*X))-l,)/COSOR 
307 IF(KR(9)-2) 301,301,302 
302 RHOVW(IS,IT)« C1*F(1,1) ♦HF(1,5) 

301 C89b-C3*ALPH*VMUE(IS) 

0UMIS-1./C3 
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BllA, OUTPUT 


126. 


DUM2«RH0VW(IS,IT)/C3 



IF (UE(IS)-l.O) 3012,3011,3012 

12fl. 

3ol 1 

UE(IS)60. 

12<». 

3o12 

CONTINUE 

130, 


WALLOb-WALLQ/CS 

131, 


0ER(3)shAllQ-0UH2*G(1, 1) 

132. 


WALLJ(NSP)aO. 

153, 


IF (NSPMl) 3051,3051,3050 

134, 

3o50 

DO 305 K«l, NSPMl 

135, 


WALLJ(K)8VJKW(K j 

136. 

305 

WALLJ(NsPj#WALLJ(N3P)-WALLJ(K) 

137. 

3051 

CONTINUE 

13fl- 


DER(n»W(2)/C3 

130, 


DER(2)aw(3)/C3 

140. 


VMECH80ER(li*r)ER(2)-0UM2 

141, 


DUMaeVMECHalOO. 

142, 


IF (0UMa-0UM2) 1601,160,160 

143, 

1601 

VMECHaO, 

144. 

160 

lF(AB3(aETA)-.0001) 303(304,304 

1«5.‘ 

303 

BETAaO, 

146, 

304 

YU )"0. 

147, 


SHFACb-UE(IS)/(C3*ALPH*ALPH*32.174) 

14B. 


0UD3(l)a(CAPC(l )«EP3A(l))aF(3,l)*SHFAC 

i4o; 


DO 182 Ia2,NETA 

ISO. 


DUD3n)a(CAPC(I )*EPSA(I))*F(3, I)i*3HFAC 

15U 

i82 

YdiaYd-l j+C86*CRH0(I-n 

152. 


QC0NDaVMUE(I3)/PR(n*CAPC{l)/C86*C(2, n+0UM2 

153, 


SHEARaOUDSd ) 

154. 


IF CKP<6)-3) 2101,2102.2102 

155, 

2ioi 

EMISaO, 

156. 

2102 

RERAD8(.a8lE-12)*(TCl))**4,*EMl3 

157, 


QDIFUB-CAPC(n/4LPH*CP9AR(l)/PR(l)*TPWALL/C3 

15B. 


DERCinaALPH 

154. 


0ERd2)aR0KAPd3)/RA0FLrS) 

160, 


DER(13)aPEdS,lT)/UCP 

161, 


DER(14jaUEdS)/UCl, 

162. 


DXaUEdS)*UEd3)*RH0EdS)/32.l74 

163, 


YRa0ER(l2j*RA0FL(6) 

164. 


DER(15)b0ETA 

165.- 


IF(A8S(8ETAV(I3j).l,E.0.000O BETA V ( 18 )aO . 0 

166. 


0ERd6)8BETAVd3) 

167, 


DER(17)aWALLQ/UCR 

16R. 


DER(l8)aDER(3)/UCR 

166. 


AP(l)aOER(18) 

170, 


DER(16)8BERAD/UCR 

171. 


0ER(20)a00IFU/UCR 

172,- 


HEATaDER(ie)*YR 

173. 


IF(KR(6) ,LE.2) GO TO 2104 

174, 


HEATaO.O 

175. 


lF(R4DSdS).LT.-1.0E-04) HEATa-RAD3(13)/UCR 

176. 

2? Oa 

CONTINUE 

177. 


iFCia.NE.l) CO TO 2103 

I7fl. 


AREAaO.O 

176. 


iFdTDK.EO.OiGEddal.O 

180, 


GO TO 2106 

161. 

2l03 

AREAa(S(lsi-S(I3-in/UCL 

182; 


IFdTF(13).NE.0i AREAaO.O 

163. 


1TF(13)bO 

18<I.‘ 


iFdTDK.EO.l) CO TO 2106 

185.- 


GEd3+iO)aATAN2dROKAPdS)-iROK4PdS-l)), CUCL 

186, 

lPTET(ia+6))i) 

187. 


GE(I3«10)8COS(GE(I3tlO)) 

18B. 

2T06 

CONTINUE 

186. 


LBIUNIT+I 
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B11A, OUTPUT 


ion.' 


WRITE(K0UT.l)KA(L,ll),KA{L.9),KAa.2).KAa..7i, (DER(ji, J»ll 

191. 

M2 

DUM1«RHO(NETA)/VMU(NETA)«uE(13)/ALPH*F(2,NET4) 

192, 


CHs WALLQ / (G(1,NETA)-G{l,n j 

J95. 


CF»CAPC(n/ALPH*VMUEnS)/C89*Mj,n 

19a. 

M3 

WRITE(K0UT.2)KA(L,12),KArL»12),(ATA(kj,ATB(K j,K«l,NSP) 

195.' 


WRlTE(K0U7,19)KAa,l7) 

196. 


DUM4«ALPH*ALPH 



00 203 !al,NETA 

19fl. 


8P(l»I.NSP)al.0 

199^ 


SP(2#I,NSP)»0. 

20n 

>03 

SP(3iI.N8P)»0. 

201, 


IF (NSPHl) 2021>2021.2020 

202. 

2020 

DO 202 Kal, NSPHl 

203. 


DO 202 iBljNETA 

20a ■ 


SP(l»l#N8PJa8P(l»l,NSPj-3P(l,I»K) 

205, 


8P(2iI»K)8§P(2,l,K)/4tPH 

206. 


8P(2,I,NaP)a8P(2,I,N8P)-8P(2,l,K) 

207, 


3P(3iI»Kja8P(3,I»K)/0UH4 

208. 

>02 

8P(3* I»N3P)b 3P(3. IiN8P)-8P(3.I.K) 

209,' 

2021 

CONTINUE 

210. 


XSP(5,N3P)aF(l,NETA)-F(l,i) 

211. • 


IF(NSPHI) 2138,2138,2135 

212. 

2i38 

VjKWCliaO. 

213. 


CN(l)aO. 

2ia, 


THELEMOlaO, 

215. 


GO TO 2137 

216, 

2j35 

00 2136 lai,N8PMl 

21’. 

2l36 

X3P(5,N3P)8X3P(5,N3P)-X3P(5,1) 

218. 

• 

00 2131 Ial,N3P 

219, 


VJKWmaO, 

220. 


00 2132 Kal, N3P 

221, 

2?32 

VJKW(I jaVJKW(I)-WAtLJ(K)/wTH(K)*CIJ(I»K) 

222. 

2?31 

VJKW(l)aVJKwm*WAT(I j 

223, 

2i37 

CONTINUE 

22a, 


UCMFaUCE/UCR 

225. 


0ER(ll)a8HEAR/UC8 

226i 


AP(2)eOER(ll j 

227. 


OER(12)bVHECH*UCMF 

228.' 


0ER(13)80ER(1)*UCHF 

22% 


0ER(14)B0ERf2)*UCHF 

230. 


DERn5)aOUM2*UCHP 

231.' 


APC3)B0ER(15) 

232, 


00 2237 Ib1,N8P 

233. 

2>37 

0ERCI + 15)avJKv|{I)*UCMF 

23a.' 


N3Jal5^N3P 

235. 


HRITE(KOUT,3) (OER(J),Jall,NSJ) 

236, 

>14 

RESbOUHi*8(I3] 

237, 


A0RbC89/F(2,NETA)*RH0E(IS)/RHQ(NETa) 

238. 


DUM3aADR*(Fn,NETA)-F(l,li) 

239, 


DEL3TaY(NETA)-0UM3 

2ao, 


RE0EL3bDUHI*0EU3T 

241. 


THENGY8(0UM3*Gn,NETA)-ADR*XG(5))/(G(l,NETA)-Gtl,l)i 

292. 


RETHENaOUMl*THENGY 

243. 


THM0H80UM3-A0R*XM(S)/F<2,NETA) 

244, 


RETHHObOUH1*TNMOH 

245. 


DEL80aY{NETA).-A0R*F(l,NETA) 

246. 


THCONObCPBARC li/RHOn )*RH0E(IS)/G(2, 1)*C89*(T(NETA)-T(in 

247, 


BLOWBDUM2/CH 

248. 

>07 

BLOWPGaOERd j/CH 

249,* 


BLOWCHsOER{2j/CH 

250, 


IF(N8PM1) 2074,2074,2070 

251. 

2ft70 

DO 2071 Ib1,N8P 

252, 


THELEM(1)bO, 

253. 


CMdiBO. 
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BllA, OUTPUT 


259. 


255, 


256. 


25 Y. 

2072 

258. 


259. 

2o73 

260. ■ 


261. 

2o7l 

262. 

2o79 

263, 

2o75 

269, 


265. 


266, 

2o76 

267. 


268. 


269, 


270. 


271 : 


272, 

2077 

273 r 

2o78 

279, 


275. 


276. 


277. 


278, 


279. 


280. 


281, 


282. 


283, 


289. 


285. 

2?39 

286, 


287. 


288, 


289. 


290, 


291 . 


292. 


29 3. 


299. 


295. 


296. 


297. 


298. 


299. 

2(90 

300, 


301. 


302. 


303.' 


309.' 


305.' 


306.' 

21 

307. 


303. 


309.' 


3io; 


311. 


312, 


313, 

C * * * 

319. 

c i** 

315. 

c *** 


OUZsO. 

DO 2072. K»l,N3P 

0UZBDUZ+(0UM3*SP(l,NETA,K)-C8'»/Al.PH*XSP(5,K)i/WTM(K j*ClJ(I,K) 
THELeM(nBTHELEM(n + f3P(l,NETA,K)-3Pn»l,K)l/WTM(Ki*ciJfT,Ki 
1F(THELEM{1)) 2073,2071,2073 
CM(I jBVJKW(I)/(7HEl.EM(I)*KAT(l>) 

THELEM(I)B0UZ/7HELEM(n 


00 2076 Ib 1,NETA 
YCI jaTVCP(Y(n) 

ouos(i}souos(n*(t 

DELSTbTVCF(0EL8T) 

DELBOaTVCF(OELBO) 

. THMOMsTVCF(THHOM) 
THENGYbTVCF(THENGY j 
00 2077 Kal,N8P 


WRITECKOUT, 18) ( ATa (K ) , ATB (K ) ,K o 1 , NSP) 

0ERC10)aRH0enS)*UE(J3) 

DER(inaCF/DER(10) 

OER(12)BCH/OERnO) 

0ER(13)bBLOWPG 

OERdaiaBLOWCH 

OERdSiaBLOW 

AP(U)BOERdl) 

AP(5)B0ERd2) 

APC6)BDERd5) 

DO 2139 Ial,NSP 

OER(I + lS)BCM(l)/DERdO) 

NSJalS+NSP 

WRITE(K0UT,3) (DER(Jj, jBl t,vsj) 

WRITECKOUT, 12) 

WRITE (KOUT,«) KAO.,3),(ATA(Ki,ATB(K),K81,N3P) 

GE(9)bTHM0M/UCL 

TlME(IS*10)aOELBD/UCL 

AP(7)bGEC9) 

AP(B)bTIHE(ISt10) 

N3JbNSPa13 

OERdl)aOEL3T/UCU 

0ER(t2)BTHENGY/UCU 

DERd3)aOUMl*UCU 

00 2190 Ial,N3P 

0ER(r+13)BTHELEM(I)/uCL 

IbNSP*9 

WRITE(KOUT,120)(kA(|.,9),Jb1,I) 

WRITE (KOUT,20)GE (9),DER(1 1 )»TIME(IS*10), (DER(Ki,Kal2,NSJ) 

OFbPECIS, 1 )*0EL80*2l 16,/{0X*THM0M) 
OF82,0*YR*OX*GE(9)*GE(I3*lO)*d,-OF)/UCS 

WRITE(K0UT,21 )KACL, 13)»KA(L,18),KA(t, 19 ),KACl, 1 0),KAtL, IP) 
F0RMAT(/6X,72HT0TAL MEAT THRU3T TOTAL ACGF.LERAT lOM INV 

1I3CID TOTAL 

2/,7X,72HT0 wall LOSS WALL AREA PARAMfTER-K ‘•A3S IW SL 

3 MASS ;N BL >/ 2X,3(6X,A6),13X,2(6X.A6)) 

RA0FL(6)aRA0FL(8) + (ROKAPd3-l )+R0KAPd3) )*RAnFL(6)*ARF.A/RADFL C5) 
RADFL(9)BRA0Fli (9)^(RA0FL(7)THEAT)*AREA 
RADFL(7 jaHEAT 


ACCP«BETAV(IS)*VMUE{p)*VMUE(IS)*ROKAPd3)*ROKAP(IS)/2./XI (IS) 
VMD0TB830RT(2,«XI(IS))*2,*RA0FL(6)/UCH 
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I 


BllA, OUTPUT 


31fl, 

310 , 

330. 

321. 

322. 

323. 

324. ' 

325. 
32h ■ 
327. 
32R. 
320. 

330, 

331. 

332, 

333. 

335. 

33R. 

337, 

33fl, 

330. 

340, 

3a 1.' 

34?: 

343, 

344. 
343. 

346. 

347, - 
34A. 
340. • 
350. 
35 1: 

352. 

353. 

354. 

355. 

356. 

357. 
35fl, 
350, 
360. 
36). 
362 ^ 

363. 

364. 

365. 

366. 

367. 

368. 
360.’ 

370. 

371. 

372. 

373. 

374. 

375. 

376. 
377; 

378. 

370. 

380 

381 . 


VMOOT1bVMDOTB*FC1.NETA) 

. VMOOTB»VMOQT0*(F(1 1 ) ) 

W01TE(KQUTi 22)RADFL(0 j ,0F,R40FU(8), ACCP, VHOOTI.VMOQTB 
22 F0RMAT(3X, 1P6E12.3) 

200 WRITE(K0UT,5) 

WRlTE(K0UT,6)KA(L,9),KA(L.l7i,(KACL,l).IaU4i,K4(L,5i 
DO 183 IbUNETA 

C COMPUTE TRUE VALUES OF F(I,J) AND ETA 

Ydiavni/UCL 

DERtliaFU,!) 

DER(2)aP(2,n/ALPH 

DER(3)aF(3,h/DUM4 

DER(4)eDUD8(I)/UCS 

DER(5)bG(1.I)/UCE 

0ER(6)8G(2,1)/(UC£*AlPH) 

DERC7)aG(3,n/(0UM4*UCE) 

0ER(8)BH(n/UCE 

DER(0)bT(I)/UCT 

APCI7lOiaOER(2) 

APCI*25)aOER(fl) 

APn740)aOER(0) 

T81 WRITE(K0UT,3)ETACn, vm, (OER(J), Jal.O) 

WRITECKOUT, 12) 

WPITE(K0UT,7)KA(L»0),KA(L,8),KA(L.14),KA(L.l5),KAa, 16) 

DO 184 lai.NETA 
CONDaCPBAR(I)/PR(n*vMUCl) 

GMR(I)aABS(GMR(I)) 

ACH8F(2#l)/ALPH*UE(IS)/3QRT(GMR(l)/VMW(I)«Tn)*40732.') 

DER(2)bRH0(I)/UCD 

0ER(3)aVMU(I)/UCV 

DER(4)aCPBARCn«UCT/UCE 

DER(5)aDER(4)*DER(3)/PR(li 

AP(I7S5jaACH 

AP(I*70)aDER(2) 

AP(I785)aDER(3) 

APCI+100)aDER(4) 

184 WRITE(K0UT,3)V(1), (DER(J),J52,5),PRn),SCm,VMW(l),ACH.rP8An) 

1 »TURPR(|) 

IF (KRC7),E0.1) GO TQ 193 
WRITECKOUT, 13) KA(L,9), (Y(I),Ial,NETA) 

WRITECKOUT, 8) 

DO 201 Kal,NSP 

WRITE CK0UT,14) MaACK),M0B(K),CSPCl,I,K),l3i,NETA) 

WRITE (KOUT,15)C3PC2,I,K),lBl,NETA) 

?0l WRITE CK0UT,15) CSPC3 ,I,K),Ib1,NeTa) 

IF CNSPMl) 2041,2041,2040 

2040 DO 204 Kbi,NSPM1 
DO 204 IBI.NETA 
SPC2,I,K)b3P(2,I,K)*aLPH 

?04 SP(3,I,K)aSPC3,I,K)*0UM4 

2041 CONTINUE 
WRITE CK0UT,16) 

DO 196 J81,NSPEC 

196 WRITECKOUT, 14) MOA ( J ) , MOB ( J) , (FR ( J , I ) , la 1 , NET A ) 

IFCKRC9j.EQ.4j WRITECKOUT, I7j MOA ( I8U) , MOB C ISUi 
i93 CONTINUE 
C OUTPUT FOR PLOT 

IFCIPLOT.NE.I jCO TO 194 

KPLTaM3D(2j 

WRITECKPLTjlS,NETA, 

1 (APCI j, lBl,8),RA0FL{9j,0F,RA0FL(8 j, ACCP, VMOOTI, VMOOTS 

2 ,Y,CAPClj,l3ll,llS),EPSA 
?94 CONTINUE 

X25 WALL0a-WALL0*C3 
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BllA, OUTPUT 


382, 


IP (MON.LT.O) return 




383. 


NETAMlnNETA-1 




38U, 


KAPAMlaKAPPA-1 




385. 


KAPAPIbKAPPA+1 




388.' 


NETALbNETA 




387.' 


KAPPALbKAPPA 




388, 


IF (KONRFT.EQ.O) RETURN 




38<), 


IF (KaClOl.GT.o.ANO.KTURB.CT.O) 

CO 

TO 

4019 

390. 


IF (is.ne.i.qr.item.ne.I) go to 

4002 


391. 


GO TO 4021 




392. 

4019 

KTURBa-1 




393, 


¥(noYm*UCL 




39<l. 


NETALbNETA 




395. 


KAPPALbKAPPA 




39h.‘ 


NETAbNETAT 




397. 


KAPPAbKAPPAT 




398. 


NETAM1»NETA-1 




399. 


KAPAMIsKAPPA-1 




400. • 


KAPAPlaKAPPA+l 




40) , 


00 4020 lalfNETA 




402. 

402fl 

F2Fltll)MP2FlXUl) 




403, 


00 4018 IbNETaLiNETaMI 




404. 

4018 

T(I + na,i.o 




4 05. 

4o2l 

IF (KR(5),EO.O) GO TO 4002 




408. 


00 4000 Isl.KAPAMl 




407. 

4(ioo 

UKAPPA(noF2FIX(I)/P2FIX(KAPPA) 




408. 


UKAPPA<KAPPA)al .0 




409, 


FOIFFbF2F1X(NETA)-F2F1X{KaPPA) 




410. 


DO 4001 IbKAPAP1,N£TAM1 




411, 

4o01 

UKAPPA(na(F2FlX(I)-F2FIX(KAPPA))/FDIFF 

412. 


UKAPPAfNETAjsl.O 




413. 

4002 

CONTINUE 




414. 


IF (KTUR0+n 4022»4023,4022 




415, 

4023 

KTURBbO 




418. 


GO TO 327 




417. 

4o22 

CONTINUE 




418, 


IF (IS.E0.N3) GO TO 326 




419. 


IF (KRC5),EQ.0) 

CO 

TO 

4012 

420, 


rATkAP«F(2,KAPPA1/AlpH 




421. 


DO 4010 iBl.KAPAMl 




tiZ?.: 

4010 

F2FIX(r)oUKAPPA(Il*RATKAP 




423. 


F2F IX (KAPPA )bF( 2. kappa )/A tPH 




424. 


FDIFFbF(2,NETA)-F(2,KAPPA) 




425. 


00 4011 IbKAPAPI.NEtaMI 




428. 

4nii 

F2FlXCna(F(2,KAPPA)*FDIFF*UKAPPA(n l/ALPH 

427. 


F2FIXCNETA)3F(2,NETA)/ALPH 




428. 

40 12 

CONTINUE 




429, 


IF (IS.EO.l) GO TO 327 




430. 


DO 328 Isa.NETAMl 




431. 


M*! 




432, 


OlFaF(2,IJ-F2FIX(ri*ALPH 




433. 


IF (DIF. LT. 0.0) Mbi*i 




434, 


DELbF(2,M),F(2,M-1) 




435. 


RATaABS(OIF/OEL) 




438.' 


IF (RAT. GT. RATLIN) GO TO 327 




437 ; 

328 

CONTINUE 




438. 


KONRFTsi 




439 . 


RETURN 




440. 

327 

call refit 




441. 


KONRFTag 




442.' 


RETURN 




443.' 


END 
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CBUB 

SUBROUTINE ROCOUT 

C***« IN ORDER TO SAVE SPACE ANo USE EXISTING COMMON BLOCKS THE 

C«*** quantities of interest to this SUBROUTINE ARE PLACED ON DRUM OR IN 

C**«* THE UNUSED PORTION OP THE MULTIPLE CASE VARIABLES. THE 

C**** pOLLOWINS LIST DESCRIBES THIS USAGEt 

C**«* XlTAB(N) • DRUM - AXIAL COORDINATE 

C*;«* YITAB(N) - DRUM - RADIUS 

C***A VS(N) - DRUM • STREAhWISE LENCTh 

C**** THESE quantities ARE NORMALIZED BY RTM 

C«**« rTm • PTET(9) - normalizing FACTOR IN METERSfTHROAT RADIUS) 

C**A* PlTAB(N) - DRUM - PRESSURE RATIO 
C*;** VA(N) - DRUM - WALL ANGLE 

C***A N - DRUM - NUMBER OF STATIONS OF XITAB. YtTAB, PITAB. VS, VA 
C*;** nP(I3) • DRUM • identity OF THE STATIONS USED AS BLIMP 
C***« SOLUTION STATIONS 

C***A nS - NUMBER OF BLIMP SOLUTION STATIONS 

C*i*A DElBO - TlME(lSflO) » BODY DISPLACEMENT AT EACH BLIMP STATION 
C*i** (METERS) 

C**A* X(IS) - PTET(IS+10) . axial COORDINATE OF BLIMP STATION IN METERS 

c*;** itf(U) - flag set equal to kr(8) to call the card punch option 

C***A ANO LIST corrected RADIUS OPTION, 

c***« itf( 12 ) - station no, of throat 
Cam* GECIS+IO) COS OF WALL ANGLE FOR BlImP STATIONS 
COMMON/BLQCOM/A(ROO) 

COMMON/EOGCOM/ PE(aO, l),PTE(aO, t),3PE( b,aa« 1),DUES, 

lUE(4O),RHQE(40),VMUE(<l0).TE(tt0),UED6E>0UEOGE,O2UEDC,VHWE.HE,CR0 ^ 

2, DSIP(40),ID3IP,TTVC,TVCC(40),HEA(40),SP(EO),CS(20),C3PR(20), 
3CG(20),CGP(20) ,sref,gep,nen,uinf,rhoinf,hinp,pinf 

COMMON/EQPCaM/Z(2000) 

COMMON/INTCOM/ KR(20),KIN,KOuT,MAT|I,MAT2I,MaT1J,MAT2J,NETA,I,IS,N 
13»IT,NTIME,NSP,NSPm1,NAM,nLEQ,NNLEQ,NRNL» ITS,KAPPA,CBAR,CASE(15) 
2,8(8), MWE,N0N,k 0(10),ITEM,NITEM,KR17,N8T,N8T2, rOENT,KRR(40) 

3, KAUXO,JTIME,JSPEC,MO(3),IU*ISH 

C0MM0N/PRMC0M/TIME( S0),PrE(40),PTET( 50),GE( 50),S(40),'rOKAP(40) 
J,RNOSE,VKAP,NOI3Cf IOi8C(40),NSO(5),MSD(5),ITF( 50 ) , IPRE , RADNC, CONE 
2,RADFL(50),RADR(40),RAOS(40),IRaD 
COMMaN/uNICOM/uCD.UCE»UCL,UCM,UCP,UCR,UC3,UCT,UCV,ITDK 
J ,IUNIT,IPL0T,KA(2,i9) 

DIMENSION NP (40) , XITAB (500), YiTAfl (500) 
l,PlTAe(500),V3(500),yA(500) 
equivalence (XITAB(1),Z(1)), (YlTAB(l),Z(50n) 

I, (PiTAB(n,znoon),(V3a),z(i5oi)),(VA(i),A(i)), (NP(i),A(0oi)) 
equivalence (PTET(9),RTM) 

1 FORMAT(iH1,10X,20H3TaTION summary for ,15A4,//) 

3 FORMATdSH 0,0 , 0,0 SEND) 

4 FORMATdOH PW(1)« ,4(EJ«,8,lH,),/,(10X,4(Ei4;8,lH.).10X)') 

5 F0RMAT(31X,23HNEW CONTOUR INFORMATION,/) 

6 F0RMAT(29X,22HINPUT INVISCIO CONTOUR, 9X, IBHINPUT WALL CONTOUR,/ 
126X,58HNEW WALL CONTOUR-NoRM. BY NEW INVISCID CONTOgfi-NORM.BY/ 
223X,14H7HR0AT HA0lUSo,E12.5, Afc, JSH THROAT RADIUS", ElZ. 5, Ab,/ 

335H STATION DISPLACEMENT AXIAL.9X, bwRADIAL, 1 0X,5MAXI AL, 

49X,6HRADIAL«/ 

53X,3HNO,,4X10HTHICKNE3S Ab, «(3X, 1 OHCOORDINATe , 2X ) ) 

7 FORMAT(Ib,3X, 1P5E15.5) 

KPCH»M30d) 

C** HEADING SETUP 

WRITE(KOUT,nCAS£ 

C*A IF NO namelist input -CORRECT ONLY BLIMP STATIONS 
IF(ITOK,EQ.O)GO TO dO 

READ(NBT2)N,XITAB,YITAB,VS,PITA0,nP,VA 
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62. 


N«NP(NS) 

63. 


PTETdOloO.O 

6 a. 


T1HE(10)«0.0 

65. 


calculate corrected body contour For tdk 

66 ^ 


00 200 ISoifNS 

67. 


SL» f time (IS^IO) -TIME rJS^9))/(PTET( 13*1 0)-PTETas*9h 

6r; 


XLX PTET(I8+9)/RTM 



YL» TIME(I3+9j/RTM 

70, 


iFdS.NE.llGO TO 201 

71. 


1A»1 

72, 


GO TO 202 

73. 

201 

IA»NP(I3-1 )♦! 

74^ 

202 

lB«NP(ISi 

75^ 

C** 

calculate corrections TO CONTOUR 

76. 

C** 

original contour- xita 8 *yitabi Wall ancle-va 

77. 


DO 203 IaIA,IB 

7fl. 


OELCn 3L*(XITABm-XLJ*YL 

76.- 


V3(I)S0ELC*RTM 

en. 


XCa0ELC*8IN(VA(lp 

ai. 


RCaOELC*COS(VA(nl 

82, 


VAClia XITABCli+XC 

83. 


XlTABf n»XITA 8 d)-XC 

8 «, 


PlTAB(I)» Y1TaB(I1-RC 

85. 

203 

YlTABdia YlTABCIURC 

86 . 

200 

CONTINUE 

87. 

C** 

new wall contour- (XITAB^yITAB) 



NEW INVISCID CONTOUR- (VA.PITAS) 

8 Q, 

C** 

displacement THICK, -VS 

40, 


NT*ITF(12) 

91. 

c** 

FOR PUNCH OF NEW BODY CONTOUR (INVISCID INPUT! 

92, 

c** 

FIND NEW MIN RADIUS- 

93' 

c** 

LOOK BACK FROM THROAT 

94. 

502 

1F(YITAB(NT1,LE,Y1TaB(NT-i)) CO TO 310 

’ 5 . 


nt»nt-i 

96, 


IF(NT,GT.O)GO TO 302 

97, 


WRITE(K0UT,21 j 

98. 

21 

F0RMaT(5X,22HPRQCRAM STOP IN ROCOUT ) 

99 ; 


STOP 

lOO. 

510 

IF(nT.NE. 1TF(12)) GO TO 3i« 

101 , 

C 

LOOK AHEAD OF throat 

102 . 

512 

IFCYlTABlNTi.LE.YnABCNT+i)) CO TO 314 

103. 


NT»NT7l 

lOU^ 


iFCNT.LT.Ni GO TO 312 

105. 


WRITE(KOUT,2t ) 

lOfe. 


STOP 

107. 

C** 

NEW THROAT RADIUS -MUST ADJUST XITAB AND RENqRMALIZE 

108.' 

5l4 

RTWoYITAB(NT) 

109, 


NTWaNT 

110 , 


NTal7F(l2) 

111. 

C** 

FOR PUNCH OF INVISCID CONTOUR (BODY INPUT) 

112, 

c** 

LOOK BACK FROM throat 

113. 

501 

IF(PlTAB(NT).LE,PITAB(NT-i)) GO tO 320 

114. 


NTbNT-1 

115.' 


1F(NT.GT,0)GO TO 301 

llh. 


WRITEtKOUT,2l) 

117. 


STOP 

118. 

520 

1F{NT.NE.ITF(12) J GO TO 324 

119. 

c** 

LOOK AHEAD OF THROAT 

120. 

522 

IF(PITAB(NT>.LE,PITAB(NTti)) GO TO 324 

121. 


NTaNT+1 

122,' 


IF(NT.LT.N)G0 to 322 

123. 


WRITE(KOUT,21) 

124. 


STOP 

125. 

324 

RTIbPITAB(NT) 
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126. 

127, 

I2n. 

129. 

130. 

131. 

132. 

133. 
13U. 

135, 

136, 

137, 
13A. 
139,- 
1«0. 
1"W 
lap. 
193, 
laa. 
1«5. 

196. 

197. 

198. 
196. 

150. 

151. 

152. 

153. ■ 
159, 

155. 

156. ' 

157. 

158. 

159. 

160. 
161, 
162. 


163 • 


C** ADJU97 COORDS, AND RENORM.' 

DO 326 Jal,N 
YlTA8(Ji«yiTAB(J)/RTW 
xrTA8(jj«(XITA0(J)-XlTAB(NT«))/RTW 
PITA0(J)«PITAB(J)/RTI 
526 VA(J)a (VA(J)-VA(NT j )/RTI 
RTW«RTW*RTM 
RTlaRTI*RTM 

IF(ITF{U)-2) 901.515,303 
C** 0UTPU7 OF NEW body CONTOUR 

315 WRITE(KPCH,9i ( Y1 TAB ( 1 1 , XlTAB( I) , 1«1 , N ) 

CO TO 902 

C** OUTPUT OF INVI3C10 CONTOUR 

ilOl WR1TE(KPCH,9) (PlTAB(n,VA(I),t«i,N) 

O02 WRITE(KPCH,3J 
GO TO 303 

C*ir CALCULATE NEW BOOT CONTOUR FOR BLIMP STATIONS ONLY 
itO 00 112 I«1,NS 

XITAB(1)6PTET(I*10)/rTM 
ROKAPdlaROKAPd )/UCL/RTM 
V3 (I)bT1ME(Ia10)/RTH 
RC«VS(1)*GECT«10) 

XCaVS(n*3aRT(l.-G£a + 10j*G£(l710)) 

VA(l)aXITA8(IUXC 
VSdlaVSdiaRTM 
PITA8d5aROKAPdi-RC 
XlTABd jaXITABd)«XC 
?12 YtTA8maR0KAPd)*RC 
■RTWaRTM 
RTlaRTM 
NaNS 

C*i LIST OF NEW CONTOUR POINTS 
303 WRlTE(K0UT,5j 
J a lUNIT ♦ 1 

wRTTE(K0UT,6)RTW,KA(J,6),RT1,KA(J,6),KA(J,9) 

WRITE(KOUT,7i d,VSm.XlTABdi,YITAB(n,V4(n,PlTAP(I),in,N) 
900 return 
end 
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1 . 

2. 

3. 

5. 

< 1 . 

y. 

«. 

10 . 

11 . 

12; 

1«. 

15.' 

Ih. 

18. 

19. 

20 . 
21 . 
22 . 

23. 

24. 

25. 

26. - 

27. 

28, 
2 «. 

30. 

31. ' 

32. 

33. 

34. 

35. 

36. 

37. ' 

38. 

39. 

40. 

43. 

44. 

45. 

46. 

48. 

49. 

50. - 


51. 

52. 

53. 
59. 

55. 

56. 

57. 

58. 

59. 

60. 
61. 


CBl28 

SUBROUTINE IMONE 

COMMON/COECOM/ C5,C6,C7,C8,C9,Cl0,Cll,C12,n3.Ct4,C15 

1, C16,C17,C18»C19,C20,C21,c 22,C23,C24,C25,C26,C27,C28,C20.C30.C31,C 
232, C33, C 34, C35, C36, C 57, Cl8#C39.,C40,C41,C42,C43, ‘044,045,046,047,: 48 
3, 049, 050, 05 1,052, 053, 054, C55, 056, 057, 058, 059, 060, 06 J ,062,063,064,0 
465,066,067,068,069,070,071 ,072,073,074,075,076,077,078,079,080,081 
5,082,083,084,085,086,087,086 

OOMHON/OOEOON/ OKU 6),0K2( 6),0K3( 6),CK4( 6i,'0K5( 6),CK6( 6) 
1,0K7( 6),0K8( 6),0K9( 6),CK10( 6),0K11( 6),0kl2( 6),0K13( 6) 
2,0K14( 6),CK15( 6),0K16( 6),CK17( 6),0K16( 6i,CK19( 6i,CK20( 6) 
3,0K21( 6),0K22( 6),0KKI( 6, 6),0KK2( 6, 6 ) , Xm (8 ) , XG (5 ) , V SP (5. 7) 
4,0KK3( 6, 6} 

OOMMON/eRROOM/RLE( 43j,CLE<30),SPLE(50, 6 ) , EL A ( 253 1 , FLEH, CLEM 
I.SPLEMC 6j,ELM(14l,ELMM,lpLM,ICLM,I9PLM( 6 ) , nELM, ILMM, dfl ( 451 

2, DGL(30),OSPL(30, 61,FNLE(18),GNLE(15),3PNLE(15, 6i,ENL(l23) 

3, FnlEM,GNCEM, 3PNLEM( 6), ENLMM, IFNLM, I6NLM, ^SPNLMf 61 

4, NENLH,INLMH,0FNL(18),0GNl(15),D8PNL(15, 6),DRNL( 8) 

. COMMON/ETAOOM/ETA(15i,OETA(15),DSQ(14),OCU(l4),Bl (14i,R2f 141 
t,LAR(123),6Al (43, 18) , SA2 (30, 15) 

0OMMON/H190nM/01,C2,C3,04,ALPH0,BETA,ZM(4, 14),ZG(4, 141,ZSP(4,14, 6 
1 ),Xl (40),HF(15,51 ,HG(15,3),H3P(15,3, 6 1 , HALPH , HUE , HHUE . HFW , nL X2 
2,C3H(40),BETAH(401 

OOMMON/INTOOM/ KR(20),K1N,KOUT,MAT11,MAT21,MatiJ,MAT2J,NETA, j, I 8,N 
is, 1T,NT1ME,N3 P,NSPm1 ,NAM,nLEQ,NNLEQ,NRNL. ITS,KAPPA,C8AR,CASF(15) 

2, B(8), MWE,NON,KO(10),ITEM,N1TEM,KR17,N8T,N8T2, IDENT , KP9 ( 40 ) 

3, KAUX0, JTIME, J8PEC,H0(5) 

OOMMON/NONOOM/AM(123, 123),0VNL(123), tow, 

1VLNKK,0LPH( 7),0UPK( 6, 7),DTHH,DTKW( 6),FLUXJ8( 71 
0OMMON/PRPCOM/PR(lS),T(15),RHO(15),SC(15),CAPC(15),OR(t51 ,H(i51 
1,CPBAR(1S),VMW(151 ,phIK( 15, .6),0flH0H,DRH0K( 6),ZK( 6),0ZKH( 6), P 
2 mU 3K( 6),0MU4K( 6),DTK( 6),0PHIKH( 6),0PRK( 6),0S0K( 6),DCAPCK( 61 
3,0HTILK( 6),00RK( 6),0CPBK( 6)»0CPTK( 6l,OMUl2)<( 6),OZKi<( 6, 61 
4,0PHIKK( 6, 6), OMUaH,OMU3H,OHTlLH,VHU12,CT,CTR,OPTll,,H7lL 

5, VMU3,OTH,OCAPOH,OPRH,03CH,OORH,OCPBH,OCPTH,dmu 12H, VMUdSl , RHOP 
6(15),PHIKP(15),HP,TP,ZKP( 6) , VMU5P, VMU4P, HT IL P, ORHO ( 1 4 i , gmR ( i 5 1 

OOMMON/VARCOM/F (4, 15),C(3, 15),3P(3, 15, 7) , ALPH 
0 EVALUATE GROUPINGS WHIOH CONTRIBUTE TO (I-l) POBTICN OF COEFFS 
0 variables with dimension (NETA-1) 

4600 CPHO(I"l)»026*0ETA(I«l)*(i. -053/6. OADETA(I-li) 

083»06*CRHO(I-n 

IF (1-2) 4001,4002,4001 

4602 XM(5)pO. 

XC(5)»0. 

IF (NSPMl) 401,401,4003 

4603 DO 4004 Kb}, NSPM l 

4604 XSP(5,k)«0. 

4601 continue 

0 evaluate xm,xg,and xsp (Which contribute to errops and to coeffs 

0 at (I) AND AT (I-m 

401 CALL TaVLOR ( 0ETA(I-1),F(2,I-1),F(2 ,i),XM 1 
CALL TAYLOR (DETA ( I-l ) , G ( 1 , l-l ) , C( I , I ) , XG) 

IF(NSPM1)403,403,404 
404 DO 414 KBl, NSPMl 

414 CALL TAYLOR (OE7A ( I- 1 ) , 3P( I , I-l , K ) , SP (1 , I , K ) , XSP ( 1 , K 1 1 
0 EVAL PORTION OF NLE DEPENDENT ON XM,.,, AND GROUPINGS EVAL AT I-l 
403 C72»F(2,I)*XM(1) ♦P(3,I)*XM(2) +F (4 , I ) *xm ( 3 ) +F(4, i-i )*XM(41 

XM(5)«XM(5)^C72 

ENL(I+3)»-(-C83+C63/2.-C9*C72-2,*(F(2,n*ZM(i , i-i)*f( 3, li*ZM(2 
1,1-1 ) +2 (4,1 )*ZM (3,1-1 )+F (4, I-l )*ZM (4,1-1))) 
0UMlsF(2,I)*XG(l)*F{3,I)*XG(2)+F(4,l)*XG(3)7F(4,I-l)*Xr,(u) 
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b?. 


XG(5)aXC(5i>0UMl 

6S. 


MPIbMAT}J+I-1 

64.' 


ENL(MPI)o-(-C84 + C2*0UMl-(P{2,l)*ZGnf I-l )+F(3, ri*Z6(2, I-i i*Ff4, 1 )• 

65. 


IZ5( 

6h. 


23*i-n+F(a,i-i)*zG(4,i-m-(C(i»n*ZM(i,i-i)+Gf2.i)*zM(2;i.n+G(3. 

67. 


3I)*ZM(3, 1-1 )7G(3, >l)*ZM( 0 »I-n) ) 

6fl. 


lF(N8PMl)405,a05,406 

60. 

006 

DO 407 Kol.NSPMl 

70, 


MPIbMPI^MATZJ-I 

71. 


DUMl»F(2, n*XSP(l .K)*F{3,I)*X3P(2,K)+F(0, n*XSP(3,Ki+F(4, I-l 1* X3P 

72, 


1(4, K) 

73. 


XSP(S,KjsXSP(5,K)+DUMl 

7% 


ENLCHPna-(-CK22(K)+c2*0UHl-(F(2,n*ZSP(l, I-) ,K)*rt 

75. 


23,n*ZSP(2,I-l,K)+F(4,naz3P(3,l-l,K)tF(4,I-J j*ZSP(4,I-l,Ki)-(9P(l 

76. 


3,I,K)*ZM(l,I-l) + 9P(2,l,Kj*ZM(2,I-ntSP(3,I,K)*Z4(5,I-h*3P(3,I-l,K 

77, 


4)*ZM(4,I-l) n 

7fl, 

a07 

CONTINUE 

70, 

C 

gVAU PORTION OF ORIG COEFpS OF AM DEPENDENT UPON PARAM evaL aT I-l 

80. 

C***« 

ESTABLISH INDICES ON VARIA8LES 

8) . 

a05 

NULoO 

6?: 


lFNaI-2 

85. 


lFPaI+2 

ea. 


IFPPaNETA+I-J 

85. 


iFPPPalFPP+NETA 

86.' 


iSPNal 

87. 


iSPPal-l 

88. 


lSPPPalFPp+2 


c**** 

momentum equation correction coefficients 

on. 


AMCI+3, na-C81+C87*DETA(I.l) 



AM(l*3,IFP)a-C74+C86*DETA(I-n 

02. 


IF(I-2) 410,410,415 

03^ 

ato 

AM(l+3,2)a-C73 

9U, 


AM(l*3,35a-C12 

’5, 


GO TO 420 

06. 

ills 

CALL LIA0(-1,I+3,IFN,-C73) 

‘»7, 


CALL LlAD(-l,I+3, IFPP,-C12) 

08. 

«20 

CALL LlAD(-l,I+3, IFPPP, -2. * (CO * XM (4 ) t ZM ( o , i. n j j 

00. 


LPlelSPN+MATlJ 

ion. 


00 450 KaNUL, NSPMl 

10), 


IF(K) 425,425,430 

102. 

<l25 

0UHlBC88*0ETA(I-n-C75 

103. 


DUM2B0. 

loa. 


GO TO 435 

105. 

ii30 

DUM1bCk13(K)*0ETA(I-1)-Cki7(k) 

106. 


OUM2aO. 

107.- 

a35 

AM(lA3,LPI)aDUHl 

108, 


1FCI.2) 440,440,445 

100. 

040 

AM(I*5,LPI-11 B 0UM2 

110. 


GO TO 450 

111. 

045 

CALL LIAD(K,I+3, ISPP, 0UH2) 

112. 

O50 

LPIbLPI+HAT2J 

113, 

C**** 

ENERGY AND 3PECIES EQUATIONS 

114. 


MPJaMATU+I-1 

115. 


MOJal 16 

116. 


DO 535 KBNUL, NSPMl 

117, 


HOJeMOJ+1 

1 18. 

c* * 

ALF, F, FP, FPP, Fpp ERROR OERIVITIVES ARE OUMI TO OUHS. DUM(, TO 

110, 

c* * 

0UH8 ARE FLUX OERIVITIVES FOR ALF, FP, FPP, 

120. 


IF(K) 455,455,460 

121.' 

c- - 

ENERGY equations 

122. 

055 

DUM1B-C82 

123.' 


0UM2a-C76 

124, 


0UM3B-C77 

125. 


0UM4a-C78 
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126. 



DUH66C82 

127. 



DUM76C77 

12fl.' 



0UH85C78 

12R, 



CO TO 465 

130. 

C 

m m 

SPECIES EQUATIONS 

131. 


460 

DUMi«a(cK21 (Ki+2,*C56 *CKiS(K)) 

132.‘ 



DUM2»-CK18(K) 

153. 



0UM3«-CK16(K)*CKIS(K) 

13U,' 



DUH4«-CK20(K)«C10*CK14(K) 

135; 



DUM6aCK2t (K) 

136. 



0UM7«CK16(kJ 

137, 



OUM8>CK20(K) 

13fl. 


465 

0UM5aC2 *XSP(4,K)aZSP(4,I.l,K) 

13R. 



AH(MPJ, DaDUMl 

l«o. 



AM(MPJ,tPP)a 0UM3 

lai. 



lF(Ia2) 470.470,472 

l«2.’ 


470 

AM(MPJ,2)b0UM2 

las. 



AH(HPJ,3)a 0UM4 

!««.■ 



AM(MQJ,llaOUH6 

145, 



AM(HQJ, IPP)aOUM7 

146, 



AM(MQJ,3)a0UM8 

147. 



GO TO 475 

14fl. 


472 

call LlAO(al,MPJ,IFN,OUM2) 

14<».‘ 



CALL LlA0(ai, MPJ, IPPP, oUM4) 

150, 


475 

CALL LXA0(-1,MPJ, IFPPP, oUMS) 

151. 



LPla ISPN+MATIJ 

152, 



DO 530 KKaNUL, NSPMl 

153. 

C 

* * 

0UM1/DUM4 and DUH2/0UM5 ARE ERROR/FLUX 

154, 

C 

* * 

GP OR SPP, RESP, 

155, 



IF(K«KK) 480.480,485 

156, 

C 

a a 

ENERGY eq, 0 Variables 

157. 


U80 

0UH2aaC80 

15«. 



0UM4aC43 

i5r; 



OUM5aC0O 

160, 



GO TO 515 

161, 


405 

IF(K) 460,460.465 

162. 

C 

m • 

ENERGY EQUATION, Sp VARIABLES 

163. 


460 

OUMla-CKKKK) 

164. 



0UM2saCK2(KKi 

165. 



0U«4aa0UNl 

166.' 



0UM5aaDUH2 

167, 



CO TO 508 

168. 


465 

IF(kk) 500,500,505 

160. 

C 

a a 

SPECIES EQ3., G VARIABLES 

170, 


O 

o 

tr 

DUNl8aCK9(K) 

171. 



DUM2b-CK5(K) ♦ CK14(K) 

172, 



0UM4«CK9(K) 

173. 



DUM5aCK5tKj 

174. 



GO TO 508 

175. 

C 

a " 

SPECIES EOS,, SP Variables 

176. 


505 

0UMIb-CKK2(K,KK) 

177.' 



DUM2B-CKK1 (K.KKUBl (I-1)*CKK3(K,KK) 

178. 



DUM4B-0UM1 

176. 



0UM5SCKKI (K,KK) 

180.' 



IF(K-KK) 508,515,508 

181, 


515 

DUHlBaDUM4«C14 

182. 


508 

AM(MPJ,LPI)aOUHl 

185, 



lF(I-2) 510,510,525 

184, 


510 

AM(MPJ, LPI-li" 0UM2 

185. 


520 

AM(MQJ,LPl)aOUK4 

186, 



AM(MQJ,LPI-l)aOUH5 

187, 



GO TO 530 

188. 


525 

CALL LIAO(KK,MPJ, I3PP, 0UM21 

100. 


530 

LPleLPI+MAT2J 

160. 



CALL LIAOCK, MPJ, ISPPP,C2 *XM(4 )»Z^(4 , 1 

101. ■ 


535 

MPJaMPJ«HAT2J-l 

162, 



RETURN 

163. 



end 


G OR SP AND 
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B13B, lONLY 


1 . 

2. 

5, 

7. 

<>. 

m; 

11. 

12 . 

IS. 

u. 

15. 

!<>.■ 

IT. 

1«>. 

20 . 

21, 

22. 

2S. 

25. 

20. 

2’, 

2fl. 

20. 

30, 

3U 

52; 

33, 

3«, 

35. 

37. 

35, 

30. 

50^ 

«1, 

52. 

53. ' 
55. 

55. 

50. 

55. 

50. 

50, 

51. 

52. ■ 

53, 
5a. 
55, 
50. 
57. 
55.' 
SO. 
00 , 
01. 


CB<3R 

SUBROUTINE lONLY 

dimension CK23C o)*CK2a( 6)»CK25( 6)»CK26( 0) 

COHMON/COECOM/ C5,CO,C7,C8,C9,ClO.Cl 1 ,Cl2,Cl3,cia#Ct5 

1, ClO,C17,Cl8.C10,C20,C21,c22.C23,C2a,C25,C20,C27.C28,C20.C30.'C31 ,C 
232,c33,c35,c35,cjo,c37»c3s.c3o,cao,cai,c42,cu3,caa,ca5,cao,ca7,cae 
3.C40,C50,CS1,C52,C53.C55.C55,C50,C57,C58,C50,COO,C01 .C02,C03,'C0a,C 
4O5,C6O,CO7.CO8.COO,C70,C71»C72»C73,C7a,C75,C7fe,C77,C78,C7O,C80,C81 
5,C82(C83,Cea,C85.C80.C87,C88 

COMMON/COECON/ CKlC 0)fCK2t 0),CK3( 0),CK4C bl,CK5( 0),CK0( 0) 
t,CK7( 0),CK8( 0),CKO( 0),CK10( 0),CK11( 0).CKt2( 0),rKl3( 6) 

2, CKia( 0),CK15( 0 ),CK 10 ( 0).CK17( 0),CK18C Oj.r.KlOt oi,CK20( 0) 

3, CK21C 0),CK22( Ol.CKKlC 0> 0),CKK2C 6. 0 ) , XM (5 j , XG C S 5 , XSP ( 5 7) 

4, CKK3( 6, 0) 

C0MM0N/ERRCQM/FLE( 53) .GLE{50),SPLE(30, 0),ELAt253),FLEM,GLEM 
1 ,SPLEM( 0)fELM(t5),£LMM,rFLM,rGLM.ISPL«{ 6),NELM, ILMN,0FL(43) 

2, DGL(30),03PL(30, 6) , FNLE ( 18 ) ,CNLE ( 1 5 ) , SPNLE (1 5. 0).FNLtl23) 

3, FnlEM,GNLEM, 8PNLEM( 0)# ENLMM, IFNLM, IGNLM, tsPNLM( oi 

a,NENLMiINLMM,0FNLCl8)»DGNL(l5)*DSPNL(15» 0).0RNL( 8) 

COMMON/ETACOM/ETA(15),OETA(15).03Q(ia),OCU(14) ,81 (U) ,82(ia) 
1,IAR(123),BA1 (43, 18).BA2(30,1S) 

C0MM0N/HI3C0M/C1,C2,C3,C5.ALPH0,8ETa,ZM(«, 10 j,ZG(a,14),ZSP(a, 14, 6 
1 ),Xl(50),HF(15,S),HO{t5,3),H3P(15,3, 0 ) , H AtPH . HUE , HHUE ,HF w , nL X2 

2, C3M(40) ,0ETaM(4O) 

COHMON/INTCOM/ KR(20),K1N.KOuT,HAT11,MAT2I.,MaT1 J,MAT2J,NFTA,I,IS,N 
13, IT,NTIME,N3P,N3PM1,NAM,nLE 0,NNLEQ,NRNL, ITS,XAPPA,C84R,CASE(1S) 
2,8(8), MWE,N0N,K0n0),lTEM,NlTEM,KR17,NBT,N5T2, lOENT, KRO ( 40 ) 

3, KAUX0, JTImE, J8PEC,M0(3) 

COMMaN/NONCQM/AM(123, 1 23 ) , DVnL ( 1 23 ) , TC w , 

1VLNKW,0LPH( 7),0LPK( 0, 7),DTHW,DTKW( 0),FLUXJB( 7) 
COMHON/PRPCOM/PR(15),T(15),RMO(15),3C(15),CAPC(15),OR(15),m(?5) 
l,CPflAR(15),VMWa5),PHlK(15* 0),ORHOH,DRHOK( 0),ZK( 0).OZKH( fc), D 
2MU3K( 0),0MU4K( 0),DTK( 0),OPHIKH( 6),0PRK( 6),0SCF( 0),DCAPCK( 6) 
3,0HTILK( 0),0QRK( 6).0CPBK( 0)*DCPTK( 0),DMUi2K( 0),nZKK( 0, 0) 
4,0pHIKK( 0, 0), 0HU4H,DMU3H,DHTILH,VMU12,CT,CTR,CPTTV,HT1L 

5, VMU3,0TH, DCaPCH,0PRH,0SCH#0QRH,DCP8H,0CPTh, 0MU12H, VMU(15) , RHOP 
6(t5)*PHIKP(15),HP.TP,ZKP( 0) , VMUJP, VMUaP , HT I lP, CRHO ( 1 4 ) , GMR ( 1 5 ) 

C0MM0N/VARC0M/F(4,15),G(3,15),SP(3,15, 7),AIPh 
dimension CYM(3) ,CXM(3)»CV3P(3) 

C ADD CONTRIBUTIONS OF I TO NONLINEAR ERRORS 
C EVALUATE GROUPINGS WHICH aRE USED ONLY AT I (NOT AT I-li 
4n00 CRHOlo C2O*OETA(I-n*(l.+C53/O,0*OETA(I-l)) 

C89eC0*CRH01 

CRH0(I-l)B(CRHQ(I-n*CRH0l)/2. 

ENL(I+3)=ENL(I*3)-(C83+C89/2.) 

MPIoMATU + I-1 

ENL(MPI)«ENL(MPI)-C84 

lF(NSPMi)ao3,403,ao2 

402 DO 430 K»l,NSPMi 
MPI*MPI+MAT2J-1 

ENL(MPI) aENL(MPl) -(CK22(K)-(PHIK(I,K)*DETA(I-n-PWIKP(Ki*82(I-l ) 
I-CKIO(K))) 
o30 CONTINUE 
a04 DO 407 K»l,NSPMl 

CK23(K)»B2(I-1)*DPHIKH(K) 

CK24(K)sC13«CK23(K) . 

CK25(K)sDETA(I-1 )*DPHIKH(K) 

467 CK26(K)*C10*CK25(K) 

C EVAL portion OF ORIG COEFFS OF AM DEPENDENT UPON PARAM EVAL AT I 

c***« establish indices for Variables 

403 NULbO 


4-69 



B13B, lONLY 


<>2. 



1FN«I-1 

63, 



1FPbI*3 

6U, 



IFPPbNETA+1-2 

65. 



IFPPP»1FPP+NETA 

66. 



I3PNbI*1 

t>7. 



ISPPal 

6B. 



lSPPPsIFPP+2 

6R.' 



DO 405 L9|>3 

70. 



CYM(U»C2*XM(L)-2M(L.I-n 

71. 


90S 

CXMa)a-(C9*XMa) * ZM(i.,fl))*2. 

72,- 

c**** 

momentum equation 

73. 



AM(I93, 1)«AM(1»3, n7Cai-C5*Ce*C72+C87*0l 

7U. 



AM(173,lFpjaAM(I+3, IFP)AC749C86*DETA (1. 

75. 



CALL LIAO(-l,n3,IFN,C73) 

76. 



call LIA0(«l.!*3,IFPP>Ct2«CXM(2)) 

77. 



CALL LIA0(.1,173,IFPPP,CXM(3)) 

78, 



LPI« laPNtMATlJ 

79. 



00 425 K»NUL» N3PM1 

80. 



IF(K) 410.410.415 

81.' 


alO 

0UMiac75AC68*0ET4(I»l ) 

82. 



DUM2B0. 

83. 



GO TO 916 

ea. 


915 

0UMl8CK13(K)*0ETAn-l)»CKl7fK) 

85. 



0UM2a0, 

86. 


916 

IF(I-NETA) 420.417,920 

87.’ 


917 

CALL LIAO(K.Ia3,1.0UM1) 

88.' 



CO TO 421 

89. 


920 

AM(l43.LPli«AM(n3,LPI)+0UMl 

90. 


921 

CALL LIAO (K,I+3,ISPP,0UM2) 

91 ; 


925 

LPIaLPl7MAT2J 

92. 

C 

**** 

energy and 3PECIES EQUATIONS 

’3, 



MPJaMATlJAl-1 

99. 



00 490 KaNUL. NSPMl 




DO 428 Lat.3 

96. 



CY3P(L)«C2*X8P{L,K),r3P(L,I-l.K) 

97. 

c 

* * 

ALF, F, Fp, FPP, Fppp ERROR OERIVITIVES 

98, 



IF(K) 430.430.435 

99. 

c 

m « 

energy eq. 

100. 


930 

DUMiaC82 

101.' 



0UM2aC76 

102, 



0UM3«C77tCY3P(n 

103. 



0UM9aC78+CY3P(2) 

109, 



CO TO 440 

105. 

c 

• - 

SPECIE3 EQS. 

106, 


935 

OUMla CK2l(Kj *056 *(CK26(K)-2, *CK24 (k: 

107, 



DUM2aCK18(K) 

108. 



0UM3aCKl9(K) ♦ CK24 (K ) -CKa6(K ) tCYSP ( 1 ) 

109,- 



OUM9aC10*(CK5(K)*CK23(K)) ♦ CY3P(2) 

no. 


940 

0UM5a CV8P(3) 

in. 



AM(MPJ,l)a AM(MPJ.l) ♦ DUMl 

112. 



AMCMPJ, IFPja AM(Mpj, IFP) ♦ 0UM3 

113. 



CALL LIAOC-I. MPJ, IFN.0UM2) 

119. 



CALL LI40(-1, MPJ, IFPP, 0UM9) 

115. 



CALL LIA0(-1, MPJ, IFPPP, DUM5) 

116.' 



LPIb ISPN+MATIJ 

117. 



00 485 KKaNUL. NSPMl 

Iin: 

c 

* * 

DUMl AND 0UM2 are ERROR OERIVITIVES WRT 

119. 



IF(KAKK) 445,445,450 

120. 

c 

m • 

energy eq., g variables 

121,' 


945 

0UMlaC43 

122. 



DUM2aCS0 

123, 



GO TO 475 

129. 


950 

IF(K) 455,455,460 

125; 

c 

«• 

energy eq., SP Variables 


ARE OUMJ TO PUM5.’ 


C OR SP AND GP OB 9PP 
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B13B, lONLY 


126. 

455 

OUMlsCKKKK) 

127. 


DUM2«CK2(KK) 

I2fl, 


CO TO 480 

12«>. 

460 

IF(KK) 465,465,470 

130. 

C ■ • 

SPECIES EOS,, G variables 

131.' 

465 

OUHla CK9CK)-CK25(K) 

132. 


0UM2«CK5(K)+CK23(K) 

133, 


CO TO 480 

134. 

c « • 

SPECIES Eos,, SPECIES VARIABLES 

135. 

470 

DUMibCKK2(K,KK)-0PHIkK(K,kK)*0ETA 

136. 


0UM2aCKKl (K,KK)7B2(I-1 ) * OPHIKKl 

137. 


IF(K-KK) 480,475,480 

13«. 

475 

OUMiaOUMUCYMO )+C14 

13P. 


0UM2»0UM2+CYM(2) 

140.' 

490 

IF(I-NETA) 483,482,483 

1 « 1 . 

482 

CALL LIA0(KK,MPJ, 1 ,DUM1 ) 

142. 


GO TO 484 

1«3. 

463 

AM(MPJ,LPliaAM(MPJ,LPI)+OUBl 

144. 

484 

CALL LUD(KK,MPJ, ISPPjOUHg) 

145.' 

465 

LPla LPI+MAT2J 

146. 


CALL LIA0{K,HPJ,ISPPP, CYM(3)) 

147. 

400 

MPJaMPJ+HAT2j-l 

14B. 


RETURN 

14Q." 


ENO 
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CB?4a 

SUBROUTINE STATE W- 

COMMON/EDGCOM/ PE(«0, 1 j , PTE («0 1) , SPE ( 6.ttO,’ n .OUES, 

lUE(aO),RHOE(ttO) , VMUEtaO) .TEdKSj.UEOCEfOUEDGE.DSUEDG.VMWe.’HE.CRO 
a ,DSlP(aoj,lD3IP,TTVC#TVCCCaO) 

COMMON/INTCOM/ KR(20) ,KIN,K0UT,M4T1T ,HAT2l, M4T1J.MAT2J.NFTA, I, IS, N 
1 -vIT.NTIME.NSP,NSPM1,NAM,NLEO,NNLEO,NRNL, IT:9,kAPPA,C8AR,CASF( 15) 

2, B(8). MWE,NON,t<Q(IO),ITEM,NITEM,KR17,N8T,NBT2, lOENT.KBqfaO) 

3. KAUXO, JTIME, JSPEC.HOd) 

COMMON/PRMCOM/TIME( 50),PRE(«0),PTET( 50),GE( SOi.SfUO) .ROKAP(aO) 

1. RNOSE, VKAP,NDISC.IDI3C<«0),NS0(5).MSD(5),ITF( 50 ) , IPRF, PAONO, CONE 

2. RADFLC 50).RAOR(40) .PAOS(a0j.IRAD 
CDHM0N/PRPC0M/PR(1S) ,Ta5),RHO{15),3cn5) ,CAPCn5),0Rn5) .H(15) 

I.CP0ARC15). VMW(t5),PHI«(15* 6) , ORHOH, ORHQK ( 6),ZKt <,),DZKH( 6), 0 

2MU3KC 6),DMU«K( 6),0TK( 6),0pH 1KH( 6),0PRK( fc),DSCN( 6),DCAPCK( 6) 

3. DHTILK( 6).0QRK( 6).DCPBk( 6}.0CPTK( 6).OHU12k( 6).DZKV( 6, 6) 

a.OPHiKKC 6. 6), 0HU4H.0MUlH,0HTILH,VMU12,CT,CTR,CPTIt*HTlL 

5, VMU3,OTH,OCAPCH,OPRH.03CH»DORH,DCPBH,DCPTH,PMU12H, VMlJf 15), RHOP 
6n5),PHIKP(15),HP,TP,ZKP« 6 ) , VMuSP, VHU«P , HT ILP , CRHQ ( 1 U ) , GMR ( 1 5 ) 

COMHON/STTCOM/GAMI.PROUH.pRA.PRB.PRC.PRO. VMUA, VHUB, VMUC, VMUD.NC, 

1 FL0(7,3),VMw0,TR(3),L 

C0MM0N/UNIC0M/UC0,UCE.UCL,UCM.UCP.UCR,UCS,UCT,UCV,ITI)K, IUNIT 
DIMENSION DUH(IO) 

VMWEbVHWO 
K0(<>)»KQ{6)«1 
KQ(7)olAB3(KR(ia)*5)-4 
IF (KQ(5)-l)300,200, 100 
c stagnation solution 

?00 WRITE(K0UT,991) 

TE(lS)BTRn)A500. 

IHET»50 

L«2 

HEpGECITEM) 
i 10 HETpHHOMO(TE(I3)) 

CPT»CH0M0(TE(I3) ) 

ERCp(HET«HE )/cpt 
ITERb51-IHET 

ERCsSIGNCAMINI (ABS(ERC).7oO.).ERC) 

TE(I8)»TE(I3)-ERC 

IF (TECIS) ,LE, 0,0) TEdS) »50. 

L«2 . 

IF(TE(IS).LT.TR(D) L“t 
IF(TE{IS).GE.TR(2)) L»3 

ihet«ihet-i 
IF (IHET) uoo.aoo.iao 
140 IF (ABS(ERC)-, 1)150,150, 110 
iso S3 TAGb8H0M0(TE(I6)) ' 

IF(KQ(5).NE.1)G0 to 156 

VHACH«SQRT(2.*.(GE(ITEM)-HE)aVNNE/GAMI,'T£CIS)/1 .<»069) 

SSTAGAaSSTAO-1 .9a69/VMWE*AL0G(PE(IS, 1)) 

GO TO 160 
i56 CONTINUE 

DO 1S5 llPl.NS 
?55 TE{II)«TE(IS) 

V.MACHoO. 

160 RHOE(IS)QPEn3,IT)/TE(I3)*VMWE/0,7503 
Ue(IS)«30RT(C6E(ITEM)-HE )a 50073.) 
VMUE(IS)a(VMUA*TE(I3)**VMU0)/(VMUCATE(IS)*VMUD) 
GAM1=CPT/(CPT-1,9869/VMWE) 

IF (KQ(5),EQ.2) GO TO 165 
C PREPARE EDGE OUTPUT IN PRqPER UNITS 
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B14A, STATE 


6?, 

63, 

64. 
6S- 
66. 

67. ' 

68. ■ 
69. 

Tn. 

7?. 

73.' 

7U. 

73. 

76. 

77. ' 

78. 

79. 

80. - 
81 . 
8S, 

83. 

84. 

85. 

86 . 

87. 

88. 

89. 

90. 
91 . 
92. 
93: 

94. 

95. 

96. 

97. 

99. 

100 . 

101 .’ 

102 ,' 

103, 

104, 

105, 

106, 

107. 

108. 
109. 

no.' 

111 . 

112 , 

113. 

114. 

115. 

116. 
117. 

ns; 

119, 

120. 
121, 
122. 

123. 

124. 

125. 


OUMdlsSnSl/UCU 

0UM(2)eTE(IS)/UCT 

0UM(3)=CPT/UCE*UCT 

0UM(4)oPE(I8,IT)/UCP 

DUM(5)«RH0E(1S)/UCD 

0UM(6)«VMUE(I3)/UCV 

0UM(7)»UE(ISi/UCL 

0UM(8)«HE/UCE 

DUH(9)aSSTA6A*UCT/UCE 

OUM(10)»VMACH 

WRITE(K0UT,9951 13, (OUM ( I ) , IbI , 1 0) 

GO TO 166 

C PREPARE 3TAGRATI0N OUTPUT IN PROPER UNITS 

165 0UN(n«T£(l3)/UCT 
DUM(2 )»PTET(ITEM)/uCP 
OUM(33aGAMl 
0UH(4)8HET/UCE 

OUrt(5)a(S3TAG-l ,9a69/VMWE*AU0G(PTET(ITEH)) )/UCE*UCT 
DUM(6)aCPT/UCE*UCT 

DUM(7)aRH0E(lSl/UC0/PRE(Is) 

DUM(fl)aVMUE(IS)/UCV 

IF (lUNlT.EO.O) WRITE (KOUT, 1993) (OUM (I ) , 1 = 1 , 8 ) 
lF(lUNIT,Ea.l)KRITE(KOUT,R93 ) ( OUM ( I i , I * i , 8 ) 

166 K0(6)b-1 

1*70 return 

C EDGE CALCULATIONS 

?00 SSTAGa3ST4G-DSIP(IS) 

8STAGAaS3TAG+1.9869/vMWE*ALOG(l./PTET(ITEM) ) 
0UMla33TAG*1.9869/VMWE*ALnG(PRE(I3)) 

I3Ta50 

IF(ITF(15).EQ.O)GO TO 210 
C EDGE calculations FOR UEI INPUT 

IHETB50 
GO TO 110 

?10 0Sb-0UMU3hQM0(TE(IS)) 

CPTaCHOMOaECISh 

ERCa03*TE(I3)/CPT 

ITERC51-IST 

ERCa3IGN(AMlNl (AB3 (ErC),700.),ERC) 

TE(lS)aTE(IS)-ERC 

IF (TEdS) ,LE. O.O) TE(IS) »50. 

L«2 

lF(TEdS).LT.TR(n)Lal 

IF(TEd8).GE.TR(2))La3 

iSTsIST-i 

IF (IST) 400,400,220 
?20 IF (ABS(ERC)-. 1)230,230,210 
?30 HEaHHOMOCTECIS)) 

VMACHB3QRT(2.*(GEdTEM)-HE)*VMWE/GAMl/TEdS)/l .'9869) 
GO TO 160 

c boundary layer calculations 

TOO lHTa50 

IF (I3*ITEM-2)301,301,302 

301 Td)aTR(l)+500, 

302 L82 

IF(Td),LT.TRd))LBi 

IF(Td),GE.7R(2))L83 

HTsHHOMOCTdl) 

CPB4Rd)aCHOMO{T(in 

ERCB(HT-H(I)i/CPBAR(I) 

ERCaSIGNlAMINi (ABS(ERC) ,7oO,),ERC) 

Td)aT(I)-ERC 

IF CTCn .LE.0.0) T(I) a 50. 

IHTbIHT-1 
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126, 


lF(IHnaOOi4OO,3l0 


127, 

310 

IF (ABS(ERC)-. 1)320, 320. 302 


12fl, 

320 

CPTILaCPBARd) 


126, 


DTHb1./CPBAR(1) 


130. 


DCPBHbo.O 


131. 


OCPTHbOCPBH 


132, 


PR(1 )»PR0UMAPRA*T(n**PR8*PRC*T(l )**PRD 


133, 


0PRH«0TH*(PRA*PR8»T(l)**(PfiB-l.)*PRC*PR0*T(I)i**(PR0-t . ) 1 


134. 


SC(I)bPR(1) 


135. 


OSCHbDPRH 


136. 


RH0(I)BRH0E(l3)/T(n*TE(lS) 


137. 


DRHOHb-RHO(I)/TCD*OTH 


13fi. 


VMUinB{VMUA*T(I)**VHUB)/(VHUC*T(l)»VKUO) 


i36. 


VHM(1)bVHWE 


140. 


CAPC(I)B(T(n/TE{l3))**(VMUB-l,)/(VHUC*T(l)*VMU0i* 


141. 


1 (VMUC*TE(I3)4VMU0) 


142. 


OCAPCHBCAPC(l)*OTH*((VHUB-l,)/T(n»VMUC/(VMUC*T(h*VMlJOn 


143. 


HTILbH(I) 


144. 


GMR(I)BCPBAR(!)/(CPSAR(I).1.6a69/VHWE) 


145. 


OHTILHbi. 


146, 


V^‘Ul2sVMtlE 


147. 


OM(Jl2Hso. 


14A. 


VMU3b1,/VMHE 


146, 


DHU3HB0, 


ISO. 


DHU4HB0. 


151, 


OR(I)bO. 


152, 


OQRHbO, 


153. 


CToO. 


154. 


CTRbO. 


155, 


RETURN 


156. 

400 

wRITE(KOUT,99)KO(5) 


157. 

96 

FORMAT(//aOH***** state does not converge for kO(5)sI2,6H 


ISfl. 

691 

FORMAT(iH1,10X16H3TaCNATIoN solution /12X15HE0GE CONDITIONS //) 

156. 

1665 

F0RM4T(5X14HTEMPERATuRE b Ell, 4, 6H DEG K //5X 1 UHPPESSUPE 

8 Ell 

160; 


1.4, 5H N/M2 //5X14HGAMMA b E 1 1 ,4 , //5X 1 OHENTHALPT 

a Ml. 4, 

161, 


210h J/KG ,//5X14HENTRoPY a Ell,«»16H J/KC-OEG K 

,n 

162. 


35X14HCP-FR0ZEN a Ell.4,i6H J/KG-OEG K , // , 5X 1 4HDENS I TV a 

163; 


4 Ell, 4, 6H KG/H3,//SX14HVISC03ITY 8 Ell, 4, 7H N-S/M2 ) 


164. 

693 

F0RmaT( 5X14HTEMPERATURE a E11.4,6H OEG R //SX 1 4HPRESSURF 

a Ell 

165. 


1.4.12H ATM03PHERE3//5X14HGAMMA a E 1 1 . 4 , //5X , 1 4HENTM4LP V a 

166. 


2 Ell. 4, SH HTU/L8M,//5X14 hENTR0Py a eil,4,l4H 0TU/L0N- 

DEG R,// 

167. 


35X14HCP-FR0ZEN a Ell.4,l4H BTU/LBM-DEG R, //5X l 4HDENSI TV 

a 

I6fi. 


4E11.4, 8H LBM/FT3,//5X14HVISC0SITY a Ell, 4, 6H LBM/S-fT 

) 

166.' 

995 

F0RMAT(I3, 10C2X, IPEIO.3)) 


170.' 


STOP 


171 . 


end 
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B14B, STATEN 


CBi4S . 

SUBROUTINE STATEN 
COMmon/INTCOM/KR(20) ,K1N,kQUT 

COMMON/EQTCOM/TK(20,2),VMW(20)*EF(7, J.a0),TJ(5>,PVCL(20), ISN(5,20) 
l,PVMW(20j 

COMHON/STTCOM/GAMt iPROUM.pRA.PRB.PRC.PRO* VMU4, VMUB.VMUC, VMUD.NC, 

1 PL0(7,3).VMWD,TR(3),L 
BnOO read (KIN, 35 PR0UH,PRA,PRB»PRC,PR0 
READ (KIN, 3) VMUA. VHua, VMUC,VMUO 
RE AD (KIN, 2 5 NC» I PR AC, I temp, KU, (T J ( 1 5 , la l , 35 
REA0(KIN,35(TK(I, t 5,VMW(I),lal,NC) 

C TK and VMW must be IN SAME ORDER AS THE SPECTES PROPERTY CARDS 

lF(lTEMP,EQ.O)CO TO 102 
K2 b 3 
Kla2 
KZai 

GO TO 103 

102 K2»2 
Kill 

103 DO 101 JJ«1#NC 
READ(KIN,<|) (ISN(I.JJ),lol,35 
READ(KIN,ai (EF(I,K2, JJ5,lal,S5 

REA0(KIN,B5 EF(6,K2,JJ),EP(T,K2,JJ), (EF(1,K1,JJ),I»1 ,3) 

READ(KIN,B5 (EF(I,Kl,JJ),Io4,75,EDUM 
IF(ITEMP.EQ.05GQ TO lOl 
read (KIN, B 5 (EF(I,KZ, JJ5,Isl,S5 
RE AO (KIN, 8 5 EF(6,KZ, JJ),EF(7,KZ, JJ) 

iOl continue 

WOLaO.O 

C calculate mole fraction ,TK(I,2) 

IF (IFRAC.EQ.15 CO TO Bill 
DO 802 Ial,NC 
PV0L(I58TK(I, n/VMW(I) 

«02 WOLPVVOL + PVOLni 
DO 803 I«1,NC 
B03 TK(I,25 bPVOL(I5/VVOL 
GO TO 8112 

b7u no Boa iai,NC 

BOO W0L«VV0L + TK ( 1, 1 5 
DO 801 lal,NC 
801 TK(I,25«TK(I, 15/VVOL 
C CALCULATE MIXTURE MOLECULAR WT. 

8vl2 DO 805 I»l,NC 

805 PVMW(I)aTK(I,25»VHW(n 
VMWEqO , 

DO B06 Isl,NC 

806 VMKE«VMWEtPVMW(n 
VMWdsVMWE 

C CALCULATE MASS FRACTION, TK{I,1) 

DO 807 lal,NC 

807 TK(I, 15aPVMW(n/vMWE 

808 DO 8106 Jlsl,7 
DO 8106 JJsl,3 

8i06 FLO(JI, JJ5aO. 

c calculation of mixture properties 

DO 8107 JKal,3 
DO 8107 JJal,NC 
DO 8107 JI»1,7 

e?07 FLD(JI, JKlaFLD(JI,JK5*EF(JI,JK,JJ)*TK(JJ,25 

c OUTPUT properties data 

WRITE(K0UT,75VMUA, yMUB,VMuC,VMU0,PR0UM,PRA,PR8,PflC,PPD 
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BUB, STATEN 


<> 2 . 

<>3. 

(>U. 

05 . 

66 . 

67 . 

6fl^ 

66 . 

7fi. 

71. 

72. 

76 . 

75. 

76. ' 

77. 

78. 

70 . 

8 ( 1 . 

81. 

82. 

83. 

86 . 

85. 
66 . 
87 . 

8fi. 

86 . 
60 ^ 
61. 
62, 
63. 
66 , 
65. 


66 , 

68 . 

06 , 

ion. 

101 .' 

102 , 

103. 


lOU, 


105. 


106 . 

107. ' 

108 . 
106 . 
lin. 
111 . 
112 , 
113. 


IF(KIJ,EQ.O)GO TO 201 
WR1TE(K0UT,71) . 

CO TO 202 

201 WRITE(K0UT,72) 

202 WRITE(KOUT,6) 

WRITE(KOUT,10) (TJ(1), (FL0(J»n.J»1.7),I»l.K2i 
WRITE(K0UT,78) 

00 212 JjMiiNC 

2 l 2 WPITE(K0UT,76) (lSN(l,JJ),iol,3),TKt JJ#2),TK(JJ,'n 
WRITE(K0UT,80)VHWE 

C CALCULATE properties RELATIONS FOR T IN OEC. R 

C = 1 ./1 .8 
C2pCaC 

RHal ,6866/VMWE 
CV«, 671668665 
DO 203 I«1,K2 
FLD(1,I)»FL0(1. n»RH 
FL0(2» lJ»FL0(2, !)*RM*C 
FL0(3,I)«FL0(3,n*RM*C2 
FL0(«»l)6PL0(«.n*RM*C2*C 
FL0(5,n«FL0(5, n*RM*C2*C2 
FL0(6.1)aFL0(6,I)*RM/C 

203 FL0(7,I)bPLD( 7,I)*RH ♦FLO f 1 , I ) *AL0C (C ) 

IF(KU.EQ.I) CO TO 206 
pRA3PRA*C**PRB 

PRCbPRC*C**PHO 
VMUAaCV*VMUA«C*AVMUB 
VMUCaVMUC*C 
20a CONTINUE 

TRm6Tj(2)*i.e 
TR(2iaTJ(3i*l,8 
IF(ITEMP.EQ.O) GO TO 206 
DO 205 I«l,3 

205 TR(I)»TJ(I)*1 .8 

206 CONTINUE 

2 FORHAT(I3,2X,3H,2X,3F10,3) 

3 FORMAT (6E10.3) 
a fORM 4T(3A« j 

7 FORMAT(/6X20HVISCO3ITV LAW MUa (E 1 0 . 3 , UH*T»*E 1 0 , 3 , 3H ) / f E 1 O . 3 , 3H*T 

I+EIO.3, 1H)//6X16HPRAnOTL NUMBER PRbE 1 0 , 3 , 1 H*E 1 0 . 5 , UH*T«*E 1 0 . 3 , 1 H + 
2Et0.3,«H*T**E10.3,/) 

71 FORMAT (6X,15HTEMP, iN DEc. R»5X, 21HVI3C03ITV IN LBM/S-pT) 

72 format (6X,15HTEMP, IN DEC. K»5X, 21HVI3C03ITV IN N-3/M2 j 

8 FORmAT(5E15,8) 

q F0RMAT{/«6X35HMIXTURE CURVE FIT CONSTANTS (DEC K)/) 
to FORM4T(F10.2.7E17,8) 

76 FORMAT(lHO,5X,3A4,8X,2(2XE10.a)) 

78 F0RM4T(1H1/////21X13HFLUI0 mixture ///11X6HC0MP0NENT lOXUHMOlE 
18X4HMA3S V28X8HFRACTI0N 4X8HFRACTI0N /) 

80 F0RMAT(//5X18HM0LECULAR WEIGHT • F12.7//) 

return . 

END 
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B14C, HHOMO 


CBiac 

function HHOMOCT) 

COHMON/STTCOM/OUM(1 i),A(7,3),OUH2(a)»L 
C THE A'S ARE THE FUD OF 8la0 

HHOMO oA(6,L)+T*{An,Lj+T*(A{2.U)/2,*T'» ( A ( 3 . L ) / J . +T • { A ( a , L ) +T* 
U(5,L)/a.n j) 

RETURN 

ENO 


B14D, CHOMO 


CB14D 

function CHOMO(T) 

CQMmON/3TTCOM/OUH(1 1),A(7,3),0UH2(4),L 

C THE A'S ARE THE FLO OF 8)48 

CHOMO «A(l,L) + T*(A(2.L) + T*(A{3»L) + T*(A(a,LUT*A(5,Lnn 

return 

END 


B14E, SHOMO 


C814E 

function SHOMOin 

COMMON/STTcOM/OUM(U).A(7,3),DUM2(U),L 
C THE A'S ARE THE FLO OF 8148 

SHOMO ■A{7»L)+A(l,L)'‘AL05(T)*T*(A(2,L)>T*(4(3,L)/2.*T*CAfa,Li/3. 
l+T*A(5,L)/a,) h 
RETURN 

end 



B15B, RERAY 


SUBROUTINE RER A Y ( N , C , NQ, 0, NON, LS, IS, ND , SO , L , S, LL . LLL 1 
c direct inversion procedure — c IS replaced by Ca*-1 

dimension D(ND,n.3o(i)iC(ND,n,ui),3(n,LLni,LLL(n,L8n j 
NNNbIABS(NON) 

NN ■ lABS(NQ) 

K0UT«6 
Nl a N + 1 
NP 8 N « NN 
DO 15 Ib 1,NP 
LLLCn a I 
IP (Lsmi 10,10,5 
5 LCii » LS(I) 

GOTO 15 
10 L(l) B I 
15 CONTINUE 
IX a " 1 

IP CIS ♦ 2) a5,55,«5 
20 PORMATCllH LCn, 181,13, 5X (3013)) 

25 FORHATCISH ((C(I,J),JB1,I3,12H),(0(J),JS1,I3, 6H i , I e 1 , 1 5 , 1 5H ) 
IPORE REPAY) 

30 PORMATC2X 11E10.3/(12X lOElO.3)) 

35 WRITE(KOUT,25)NP,NNN,N 

WRITE(KOUT,20)NP, aCI),lBl,NP) 

IX a 0 
DO 00 Ial,N 

40 WRITE(K0UT,30) (C(I,J)*JBl,NP), (D(I,J),J8l ,NNN) 

45 IS a - 1 

c triangulate matrix 

DO 130 IB1,N 
DO 50 Mal,NP 
50 SCMjaABSCCCI.M)) 

IP (IS) 55,60>60 
55 IS a 0 
GOTO 90 

C REDUCE ROW I BY PRECEEOING ROWS 

60 OO 85 Ja2,I 
K s L(J - 1) 

OIV a - C(I»K) 

IF (DIV^ 65,85,65 
65 C(I,K) B 0. 

DO 70 Mal,NP 

DIVf a DIV * C(J - 1,M) 

SCM)aAMAXl (S(M1 , A83(DIVC)) 

70 C(I,M) a C(I,M) ♦ Dive 
IP (NNN) 05,65,75 
75 DO 00 Mai, NNN 

80 D(I,M) a D(1,M) + DIV * D(J - 1,M) 

35 CONTINUE 

C SEEK MAXIMUM PIVOT 

90 DlV a 0. 

DO 100 JJaI,N 
M a LCJJ) 

IF (A0S(C(I,M)) - DIV) 100»100,95 
95 DIV a AB3 (C(I,m)) 

K a M 
J a JJ 

IF (1.LE.3) GO TO 100 
lF(ND-20) 100,100,101 

» 00 continue 

101 SD(I)bD1V/S(K) 

L(J)sL(I) 
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B15B, RERAY 


6R, 



LdisK 




lF(SD(I)-l.E-8i 104,104,110 



^04 

C(I,K)»p, 

‘5, 



iFOOCin 105,105,90 

66, 

C 


SINGULAR matrix RETURN 



i05 

ISs-1 

6fl. 



write(kout,i 35) {ii,L(in,8onn,iiBi, 1) 

<»«>.■ 



RETURN ' 

70. 


»10 

DIV ■ C(I,K) 

71. 



C(I,K) ■ 1.0 

72. 



K » LLL(J) 

73. 



LLLCJ) ■ LLLin 




LLLdi 0 K 

75, 



LL(K) a I 

76, 

C 


normalize ROM 

77: 



IF (NNN) 125,125,115 

7fl, 


as 

00 120 Jal,NNN 



120 

0(1, J) a 0(1, J) / OIV 

80. 


T25 

DO 130 Jai,NP 

eu 


l30 

C(I,J) a C(I,J) / OIV 

es. 



IF (IX) 145,140,145 

03. 


T3S 

F0RmAT(24H pivot ROW/CQL/RES. ratio 5(14, 

84. 


i'40 

WRITE(KOUT,135) (I,L(I),30(n,Iai,NP) 

85.' 

c 


diagonalize matrix 

86. 


145 

mm a N • 1 

07.' 

c 


interchange columns 

88: 



DO 225 IIal,NP 

86. 



1 a II 

60. 


Tso 

J a L(I) 




L(I) a I 

92^ 



IF (J - I) 185,225,185 

93. 


i«5 

IF (IS) 200,190,200 

94.' 


l90 

00 195 Mal,N 




3(M) a C(M,I) 

96. 


T95 

C(H,li a C(M,J) 




13 a I 

98. 



1 a J 

96.- 



GOTO 180 

loo: 


200 

IF (IS • J) 205,215,205 

101, 


205 

DO 210 Mai,N 

102, 


2l0 

C(M,I) a C(M,J) 

103. 



I a J 

104, 



GOTO 100 

105. 


as 

DO 220 Mai,N 

106.' 


220 

C(M,I) a 3(M) 

107. 



IS a 0 

lOfl. 


?25 

CONTINUE 

106.’ 



IF(N0N * NO) 146,146,144 

110. 


1 44 

1F{NQNaNQ-NN-NNN) 149,147,149 

1 1 1 : 

C**8**S0LUTI0N vector only 

112, 


147 

K»N 

113. 



DO 153 lai,NM 

114 



KaK-1 

115? 



00 153 ILaK,NM 

116. 



0UMaC(K, IL71 ) 

117. 



IF (NN) 152,152,151 

110, 


iSi 

00 146 MaNl,NP 

119. 


T46 

C(K,M) a C(K,M) - DUM • C(IL^1,M) 

120, 



C(K,l)aC(K,l)-OUM*C(IL>l,l) 

121. 



IF (NNN) 153,153,152 

122. 


152 

00 148 Mai, NNN 

123. 


iae 

0(K,M)a0(K,M)-DUM*0(IL*l,M) 

12 a, 


153 

CONTINUE 

125. 



GO TO 176 
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C**«.*fULL INVERSION AUD SOLUTION VECTOR 
ia9 DO 175 I«l,NM 
DO 175 J»1,I 
OIY a - C(J,l + n 
IF (DIV) 150.175,150 
150 C(J,l7lj a 0. 

IF (NNN) 165,165,155 
TS5 do 160 Mal.NNN 

J60 D(J,Mj a D(J,H) ♦ OIV * 0(1 ♦ 1,M) 

165 DO 170 Mai.NP 

l70 C(J,N) a C(J,^i ♦ OIV * C(T ♦ 1,M) 

175 CONTINUE 

c interchange rows 

?76 DO 320 IIal,N 
I a II 

230 J a LL(I) 

LL(I) a I 

IF (j - li 235,320,235 
235 IF (IS) 265,240,265 
?ao DO 245 M8l,NP 
S(M) « C(I,M) 

245 ca,N) a C(J,M) 

IF (NNN) 260,260,250 
250 DO 255 Mal.NNN 
S0(M) a 0(1, M) 

255 D(I,H) a 0(J,M) 

260 IS a I 
I a J 
GOTO 230 

265 IF (IS - J) 270,2R5,2T0 
270 DO 275 Mal.NP 
275 C(I,M) a C(J,M) 

IF (NNN) 290,2R0,280 
280 DO 285 Mai, NNN 
pas 0(1, N) a 0(J,M) 

2P0 I a J 

GOTO 230 

2 R 5 OO 300 Mai.NP 
300 C(I,M) a S(M) 

IF (NNN) 315,315,305 
305 DO 310 Mal.NNN 
310 0(1, M) a SO(M) 

315 IS I 0 
320 CONTINUE 

IF (IX) 340,330,340 

525 F0RMATC15H ( ( C ( I , J ) , Ja 1 , 1 3 , 1 2H) , ( D ( J ) , Ja 1 , 1 3 , 6H ) , I a 1 , 1 3 , 1 5 h ) 
iter RERAT ) 

330 wPITE(KOUT, 325)NP,NNN,N 
OO 335 lal.N 

335 WRITE(KOUT,30) (C(I,J),JB1.NP), (0(I,j),Jaj ,NN n) 

340 RETURN 
END 
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B16A, SLOPQ 


t. 

2. 

3. 

«. 

5. 

S 

1: 

11. 

12 .’ 

15, 

l^ 

15. 

16. 
1’. 
IB, 

20 , 

21 . 

2^ 

23. 

24. 

25. 

26 . 
2’, 
2". 
24. 

5«. 

31. 

32. 

33. 

34. ' 

36. 

37. 
3fl, 
34. 
40. 


CBi6i 

SUBROUTINE SL0PQ(N,X,Y,S,Z) 
DIMENSION X(l).Y(n,S(l).Z(l) 
S(l)aO, 
lF(N-n 9,9,8 

8 S(2)«(Y(2)-Ym)/(X(2)-X(i)) 
S(l)aS(2) 

0CaS(2) 

DO 7 Ial,N 
IF(I+1-N)2,I,6 

1 Q8bQC 

IF (1-2)7, 6, 5 

2 XOTaX(I)-X(I + n 
XT7aX(l4n-X(I + 2) 
XTOaX(U2)-X(T) 
AAby(I)/(XOT«XTO) 

XOTTbXOTaXTT 
A8bY(I+I )/XOTT 
ACaYn*2)/(XTT»XTO) 

AAAaAA*XTT 

ABBbA8*XTO 

ACCbAC*XOT 

QAbQC 

QBaSd) 

QCasn^n 

3(I)aAA*(XT0-X0T)«AB8-ACC 

S{I*1)bAB*(XQT-XTT)+aCC-AAA 

a(l 42 )aAC*(XTT-XTD)«AAA-ABB 

3 lF(f-2)7,5,4 

4 S(I)a(S(l)tOA)/2. 

5 S(nB(S(lW08)/2. 

6 XOaXm-X(I-l) 

Y8by(I j+Y(I-l) 

80aS(n-3(I-l) 

SBaSCn 

Z(I)aZ(I-li*XD/2.*(Y8-XD/6.*SD) 

SCliaSS 

7 CONTINUE 

9 RETURN 
END 
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B16B, SLOPL 


1 . 
2 . 

з, ' 

и. 

5. 

6. 
T. 

n, 

10 . 

n, 

12 . 

13 . 

15 . 

16. 
17 . 

is; 


subroutine 3 L 0 P(.(N,X,V,S,Z) 

0 IMEN 3 I 0 NX{N)»Y(N 1 , 3 (N),Z(N) 

NM B N -1 

3 ( 1 ) B (Y( 2 ) -V(l) )/(X( 2 )-X(l)) 

31 a 3 ( 1 ) 

IF(NM.NE.I) CO TO 1 
S( 2 )aS(l) 

CO TO 2 

1 CONTINUE 

DO S 1 B 2 ,NM 

32 a (Y(itij-Y(n)/(x(i+i5-x(n) 

8 ( 1 ) a (Sl« 32 )/ 2 . 

5 31 G 32 

S(N) a 32 

2 00 10 Ib 2 ,N 

10 Z(I) a Z(>l)f(Y(I)>Y(I-l))/ 2 . 0 *(Xn)»X(I-l)) 

RETURN 
END 


B17A, ABMAX 


1 

2 

3 

a 

5 

6 

7 

n 

9 

10 

11 

12 

13 

Ul 

15 


C8l7& 

SUBROUTINE ABMax (N, x, XM, 1 j 

DIMENSION X(l) 

lal 

XMbABS (X(i)) 

IF (N-i) a, a, 5 
-5 DO 3 J82,N 
XTbaBS (X(J)) 

IF(XM«XT) 2,3,3 
2 XMaXT 
laj 

J CONTINUE 
<1 XMaX(l) 

RETURN 

END 
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B18A, MATSl 


CBiSA 

SUBROUTINE MATSKX) 

COMMON/INTCOM/KR(aO j,KlN,KOUT,MATll,MAT2I,HATlJ,MAT2J,NETA 

C0MM0N/ETaC0M/ETA(15),DETa(IS) 

dimension X(1 

lE(KR(n,LT,-50) GO TO 17 

jSoNETA 

IF{KR(10)-1) ll.ia.lR 
IT JBa2 

X(NETA)BX(NETA)+X(n 
rF(KR(10)-l) tl»18,i<» 

18 L1M«NETA-2 
GO TO 20 

19 lIMoNETA-I 

20 J«JB 
KaJB+NETA-l 
XJaO, 

DO 25 I«1,lIM 
XK8(X(Ji/0ETA(n«XJ)*2. 

X(Ji»-X(K)+XK 
X(Kj*XK/OETA(n 
lF(J8-2i 21,23,21 

23 IFCI+I-NETAJ 24,27,27 

2 1 Xtl j»(XJ/2. + XK/6.)*DETAaj*OETA(I)-X(n 
lF(I»l-NETAi 22,27,27 

22 X(I^l)aX(lAli.X(n 

24 XJ9X(J) 

XCKfllaXCK+n-XJ 

J«J+1 

25 K«K*1 . 

I«NETA-i 

X(KjaX(K)*X(K + n 

XKa(3.A(X(J)/0ETA(I).XJ)-x{K))*2. 

XKPaX(K)*2,-XK 

X(J)aX(K*l) 

X(K+l)aXKP/OETA(n 
. X(K)aXK/OETACn 
lF(jB-2) 26,27,26 

26 X<I)B(XJ/2.*XK/8.fXKP/'24,)»0ETA(I)*DETA(I)-X(I) 

27 RETURN 

11 OSVaDETACNETA) 

DETVCNETAiaO. 

1 B(l)a,5 

A(1 ja0eTA(n/4.+DETA(2)/2. 

DO 2 Ia3,NETA 

C(I-2jaOETA(I-n/(6.*A(I-2)) 

B(I-l)s.5«cn-2)*B(I.2) 

2 A(I«l)B(i,/3,-C(I-2)*0{I-2J)*OETA(I-i)»BCI»n*OETA(I) 

12 JbNETa-1 
KaJtJ8-l 
L"K*J 

X(L)aX(L)*X(L*l) 

3 X(L-l)oX(L-n+X(L) 

X(L)aX(L)-X(K)/DETA(J) 

LsL-1 

KBK-l 

jaj-l 

IP (J-l ) 4,4,3 

4 X(L)aX(t)-X(K)/0ETA(l)*l,5 
JaL 

DO 5 Is3,NETA 
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62, 


X(Ja1)«X(J«1)-C(I-2)*X(J) 

<>3. 

5 

jBj+1 

6«. 


XSaX(j71) 



IbNETA-1 

66. 


GO TO 8 


6 

MbL 

6fl. 


DUM»X(J*1 j*{DETAn + l )»0 ETa{I*2)> 



DO 7 KB1,I 

TO. 


X(M)bX(H).OUM*B(K) 

Tl. 

7 

MBMf 1 

T2. 


J«J-1 

73, 

8 

x(j+nBX(j)/A(n 



IBI-I 

T5. 


IE (I) 9, 9, 6 

76. 

R 

DUMaOETA(t)«OETA(n 

77. 


X(J jBX(JB)/DUH*3.-.5*X(J71) 

78. 


IFCJ0-2) 13i14.13 


13 

X(l)aDUH*OETA(l )*(X(J)/8.«X(Ja1)/24,)-X(1 ) 

80, 

14 

LBJB 



00 10 laS.NETA 

82' 


JaJ + 1 

83. 


X(L)aX(L*l)/0ETA{I-ii-0ETA{l-l)/3.*(X(J)*.5*X(Jtn) 

8U, 


lF(jB-2i ISiJOilS 

85. , 

IS 

0UMa0ETA(I.l)*DETA(l-l) 

86. 


X(l-n«X(l-2j-X(I-l)+0UM*(X(L)/2,4DETA(l-l )*fXf Jl/8 


10 

L»L + 1 

88. 


X(L)bXS 



0ETA(NETA)a08V 

90. 


RETURN 

91. 


end 


B18B, MATS2 


) . subroutine MATSE(X) 

2. dimension xcn 

s’ COMMON/INTCOM/KR(20) 

H. KR(1)»MR(J j-lOO 

5. CALL MATSKX) 

b. KR(1)»KRU) + 100 

T, RETURN 

8. END 
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CB19A 

SUBROUTINE TRMBLCILK) 
dimension EPSOUTI 75) 

COMMQN/CEBCOM/ClOW,C56W,TAUW,ORHON(7).OCAPC!<((7).OVA(t23) .CiPV.UTAil 
1,VWP,PPL>ACEB, ACT. CCEB«ABECK,CBECK,BBECK, DELTA (aO).IPPT 
dimension xp(a) 

COMMON/COECOM/ C5,CS,C7, C8 , C9, C 1 0 , C 1 1 , C 1 2, C 1 3, C 1 a , C 1 5 

UCU.C17,Cia.Cl9,C20,C21.C22>C23,C2a,C25,C26.C27.C2B.C2R,C30.C3l.C 
232»C33rC3a»C35.C36,C37iC38»C39,C40«C41.C42,C43.Ca4,C<i5.C^6,C<l7.Cae 

3, C49,C50,CSl,C52,C53,C54,c55,C5fc,C57,C58,C5<»,Cfe0,Cfcl,Cfc2,'c<>3.C64,C 
46S,C66»C67.C68,C6'»,C7O,C7l,C72,C73,C74,C75,C76,C77,C70,C7<»,CaO,C81 
5.C62»Ce3>CS4,Ce5>Cafa,C87,C86 

COMMON/fOECON/ CKIC 6)*Ct<2( 6)*CK3( 6).CK4( S),CK5f 6),CK6( 6) 

1, CKT( fc),CK8( 6),CK<I{ 6),CK10( fc),CKlt( 8)>CK12( <>),Ct<15( 8) 

2. CK14( 6),CK1S( 6).CK16( 6)fCK17( 6)«CK18( 6),CKio( 6),CV20( 6) 
3tCK2U S),CK22( 6).CKKl( 6, 6).CKK2( 6, 6) , XM (S ) . XG(5) , XSP (S . 7) 

4, CKK3( 6f 6) 

COMMON/EOGCOM/’ PE(40, 1),PTE(40, D.SPEf 8,40, U,OUES, 

IUE(40),RHOE(40), VMUE(40) ,TE(40),UEDCE,OUEDCE,D2UEDG, VMWE,'hE,C»0 
2,0SIP(40),I08IP,TTVC.TVCC(40).HEA(40),3FC20) ,C8(20),C8PR(20).' 

3 CG(20) ,COP(20) ,8REP,GEP.nEN 

CQMM0N/EP3C0M/ELCaN,VAP,CLNUH,$cT,PRT,RE0,0V8,RH0VS,PI,PIM,CL, 

1 EP8A(15),CP81,EL(15),DPI(15,2),DEPC,TREF,RETR. VINTRnS) 
C0MMQN/ERRCQM/FLE( 43),CLE(30),SPUE(30, 6) ,ELA(2^S) ,FLEM,GLEM 
1,3PLEM( 6j,ELM(14),ELMM,lPLM,IGLM,I8PLM( 6) ,NELM, !LMM,DFL f43) 
2,OGL(30) ,DSPL(30, 8) ,FNL€ ( 18) ,GNLE( 15) , 3PNLE ( 15, 8),ENL(123) 
1 ,FnLEM,GNLEM,SPNLEM( 6), ENLMM, IFNLM.'ignlM.ISPNLHC 8) 

4,NENLM,lNLMM,0FNL<ie),DGNL(l5),D3PNL(lS, 8),0RNL( Si 
C0MH0N/ETAC0M/ETA(15 ),DETa( 15),D3Q(14),DCU(14).B1 (14),B2(ia) 

1, LARa23),aAl(41,18),BA2(50,l5) 

C0MM0N/HI3C0M/C1,C2,C3,C4,ALPH0,BETa,ZM( 4, 14) ,2C(u, ia),ZSP(4, 14, 8 
I ) ,XI(40) ,HF(15,5),HG(15,3)»H3P(15,3, 8) ,HALPH,HUB,HHUF,HFW,0LX2 

2, C3m(40),BETAM(40) 

COMMQN/INTCOM/ KR(20) ,KIN,KQUT,MAtlI,MAT21,>^ATU,MAT2J,NET4, 1, 13,N 
18*1T*NTIMC,NSP,N3PM1 ,NAH,nLEO,NNLEO,NRNL, it8,kappa,cbar;case( 15J 
2,8(0), MWE, NON, KOnO), ITEM, nITEM, KR 17, NPT, N0T2, TOENT,t<RP(O0) 

3, KaUX0, JTIME, J3PEC,M0(3) 

COMPaN/NaNCOM/AM(l23, 123),0VNL(l23i,TCN, 

1VLNKW,DLPH( 7),DLPK( 8, 7J,DTHW,0TKW( 8),FLUXJB( 7) 
CaMM0N/PRPC0M/PR(l5),Ta5),RH0(15) .3C(15) ,CAPC(15) ,QR(15).H(15) 
l,CPBAR(15j, VM w(IS),PHIK( 15, 8),DRH0H,DRH0K( 8),ZK( 8),DZKH( 8), D 
2MU3K( 8),0MU4K( 8),0TK( 8i,0PHIKH( 8),0PRK( 8),0SCKC 8),0CAPCK( 8) 

3, DHTILK( 8),00RK( 6),DCPBK( 8),0CPTK( 8),0MU12K( 8),DZKKf 8, 8) 

4, DPHIKK( 8, 8), DMU4h,0MU3h,0HTILH, VMU12,CT,CTR,’cPT!L,HTIL 

5, VMU3,OTH,OCAPCH,OPRH,D3CH,DORH,DCPBH,OCPTH,DMU12H, VHU(t5), RHOP 
8(15),PHIKP(15),HP,TP,ZKP( 8),VMU3P,VMU4P,HTlLP,CRH0Ci4).GMRCi5) 

C0MM0N/VARC0M/F(4, 15),G(3,15),SP(3,15, 7),ALPH 
CaMM0N/TUR8/3TURB,0ELC0N,0CLNUM,TURPR(l5) 

COMMON/pRMCnM/TIMef50),PRE(«O),PTET(50),6E(50),S(40),ROKAP(40) 

C0MM0N/RFTC0M/RFT0Um<34) ,kTURB 

EQUIVaLENCE(EPSOUT(1),ELCON) 

GO TO (tool, 1002, 1003, 1004,1008), ILK 
lOOl CONTINUE 

IF (KTURB.EQ.-l) RETURN 
1 FORMAT(0E1O,3) 

42 FORMAT(/30H MIXING LENGTH CON3TANT «IPE11.4 

* /30H SUBLAYER CONSTANT, YAP bIPEII.4 

A /30H CLAU3ER number sIPE11.4) 

43 FORMAT(/30H BECKWITH CONSTANT »lPEll'4 

* /30H MIXING length CONSTANT 81PE11.4 

* /30H turbulent PRANDTL number »lPEil.'4) 
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62. 

4a 

FORMATt/SOH TURBULENT SCHMIDT NUMBER 

BlPEll,4 

63. 


* /30H TRANSITION MOM. THICK, RE 

BlPEl 1,4) 

64. 

45 

FORMAT(/30H TURBULENT pRANOTL NUMBER 

slPEll.4) 

65.' 

46 

FORMAT(/30H variable TUR6. PR IN USE 

, 

6fc, 


* /30H turbulent pR constant 

BlPEll .’4) 

67^ 

47 

FORMAT(/J0H CEBECI-SMITH TURB. MODEL 

) 

6fl. 

48 

FORMAT(/30H BECKWiTH-BUSHNCLL model 

) 

66. 

46 

FORMAT(/30H KENDALL TURB. MODEL 

) 

7ft: 


IFCCLNUM.GT.O.) GO TO 2001 


71. 


READ (K IN, n ELC0N,YAP,CLNUM,SCT,PRT,RETR 

72.' 

2001 

CONTINUE 


73, 


IPRT«0 


74. 


IP(yAP)2002,2003,2004 


75. 

2602 

CCEBa26. 


76, 


vapb -yap 


77. 


WRITE{K0UT,47) 


7b; 


NRITE(K0UT,42)ELCQN, YAP,ClNUM 


76. 


IFCPRT.GT.O.) WRITE(K0UT,45)PRT 


80. 


TPCOt^B-PRT 


8i: 


IF(PRT,LT,0.) WRITE(k0UT,46) TPCON 


82. 


IFIPRT.LT.O.) IPRTai 


83. 


WRITE(K0UT,44)8CT,RETR 


84. 


CTPR834. 


65, 


OCCEBbCCEB 


66. 


OCTPRbCTPR 


87, 


GO TO 2005 


88. 

2n03 

CBECKb26, 


86, 


OBbELCON/CLNUM 


60. 


BBECKbCLNUM 


’1. 


nRITE(KOUT,48) 


62. 


WRITE(KdUT,43)B8ECK,ELCQN,PRT 


^3.' 


WRITE(KQUT,44)SCT.RETR 


64. 


GO TO 2005 


65. 

2004 

WRITE(K0UT,46) 


06. 


WRITE(K0UT,42)ELC0N,YAP,CLNUM 


07. 


WRITE(KoUT,45)PRT 


08. 


WRITE(K0UT,44)SCT,RETR 


00. 

2005 

CONTINUE 


100, 


OELCON a ELCON 


101. 


OCLNUM a CLNUM 


102. 


OTPCONbTPCON 


103.' 


KOdOlBl 


104; 


KR(7)bKR( 7 j-2 


105. 


IFIRETR.CT.O.) KQ(10)B-1 


106. 


IF(RETR.LT.-1 .666) KO(10)b-10.01*RETR 


107; 


RETURN 


108, 

1002 

CONTINUE 


106. 

C**** 

calculates EPS2/NUE AND ITS DERIVITIVE3 

AS DVS AND AM(1, 

110, 


IWKbO 


111. 

C** 

INTERMITTANCY corrections 


112, 


DO 13 lal.NETA 


113. 


. IFICBECK.GT.O.) GO TO 12 


114.’ 


iFd.LE, KAPPA) GO TO 12 


115. 


VlNTR(nBl.-(ETA(I)-ETA (K appa) )/(ETA(NETA)-ETA (KAPPA)) 

116, 


GO TO 13 


117. 

12 

VINTR(I)b1.0 


1 18, 

13 

CONTINUE 


116. 


DSTURB b 2,0*STURB 


120, 


IF (S(IS)-DSTURB) 6,7,7 


121 . 

6 

scale b S(IS)/STURB - 1,0 


122. 


GO TO 8 


123. 

7 

scale b 1 .0 


124. 

8 

SORSCbSqRTOCAlE) 


125.' 


ELCONaOELCON*8QRSC 
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126. 


TPC0N80TPC0N*8QRSC 

127. 


BBECK«DCLNUM*80RSC 

12B. 


CLNUM s OCLNUM * SCALE 

129. 


NULbO 

130. 

comment C3O-0EL/VMUE , RHOV3»-OEL/VMUE*RHnV 

131 . 


REDB-C3 ARHOEdS) aUECIS) 

132. 


RCbREDaCLNUM 

133. 


0ELb-VMUE(IS)aC3 

134. 


PlaO. 

135. 


EPSiaO. 

136. 


depcbo. 

137. 


RHOVSsClAFd.DtHFd.S) 

138. 


IF(RC1 75,4i4 

139. 

4 

RRBRH0E(I8)/RH0(n 

140. 


RRP»RR/RH0(1)aRH0P(1 ) 

141. 


YDIsO. 

1«2. 


01bO« 

143, 


QIDbO. 

144. 


AM(1,1)bO. 

145. 


RKb(.995-CBAR)/(1 ,-CBAR) 

146. 


SDYsO, 

147. 


Y01Q»0, 

148. 


OVSbO. 

149. 


LPb117 

150. 


00 66 IsI.nETA 

151. 


DO 3 Kal,NSP 

152, 

3 

DRH0K(K-naAMCLR,K + 97) 

153: 


RRPD3>RRP 

154. 


RiaRfl 

155.' 


YOSaYDI 

156. 


OSaQI 

157. 


QSObQID 

158. 


RRDaPH0E(IS)/RH0(nA*2 

159. 


Cl0aC7*F(2,I) 

160. 


C56bF(2, I)/ALPH 

161, 


CRDbORHOHaCIO 

162. 


YOQOa-YOlQ 

163. 


IF(I-NETA) 5,15,15 

164. 

5 

RRaRHOEdSi/RHOdAl) 

165. 


RRPoRR/RHOd + nARHOPd + n 

166. 


RRFDBF(3,n/RI-F(3,Un/RR 

167. 


RRPObRRPO+RRP 

168. 


YOIsDETAd j/2.A(RRARItOETAd)/6.ARRPD) 

169. 


SOYaSDYAYDI 

170. 


0UMlaYDI/6.ARRF0 

171, 


OUM2«F(2,NETA)-(F(2,I)+F(2,Ia1))a0.5 

172. 


0V8bDV3aYDIa(0UM2-0UM1/2.) 

173. 


YOIQBYOIAYOI 

174. 


YDQDbYOODaYOIO 

175. 


QIaDETA(I)/2.AC0UM2-0UMl) 

176. 


OSaQSAQI 

177. 


QlDBDETAdi/2. aALPHaoEL 

178. 


IFCI.EQ. kappa) QIOKaQIQARK 

179. 


YDSaYDS+YOI 

180. 


IFCI.EQ. KAPPA) GO TO 15 

181. 


OSDbQSOaQIO 

182. 

15 

ORHOlB-OSARI/RHOd)-F(3,I)/12. AYDOD/RHDEdS 

183. 


IF(CBECK.GT,0.) CO TO 33 

184. 


OUMbAM(LR, 98)a ORHOIa RC 

185. 


AMd,I + 3)BAMd,: + 3)-0,5ARcAYDStC7ADUM*F(2, 1 

186, 


lFd-1) 20,20,25 

187. 

20 

AMd,3)BAMd,3)-RC/RrAYOao/12. 

188, 


GO TO 30 

189. 

25 

CALL LIAD(-1,1,NETA-2+I,-rC/RI*Y00D/12.) 
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190. 

30 

AM(l, naAMd, n-DUM*C7*F(2.1)*F(2, n/ALPH 

I’J. 


MPjBMA7lJtl+I 

192. 


DO 60 KaNULf N3PH1 

193. 


IF(K) 40»40»35 

19U. 

35 

DUMrAM(LRfK+ 98)*0RHOl*RC 

195. 

90 

IF(I-NETA) 50i55,50 

196. 

50 

AM(l,MPJ)aAM(l,MPJ)tOUM 

197. 


GO TO 60 

198. 

55 

CALL LIAD(K,1>1«DUM) 

199. 

60 

MPJ8MPJfMAT2J 

200. 


GO TO 32 

201. 

33 

CONTINUE 

202, 


iFd.GE. KAPPA) GO TO 67 

203. 


AM( 1 , 1 laAMd , n +0EL<» Y0IACR0*C56*RR0*0S0 

204. 

67 

CONTINUE 

205. 


IF(I.EQ.KAPPA) AM(1, i)8AM(l,n+CRD*CS6«RRD»QSD*RK*VDI*PEl 

206. 


iFd.LT. KAPPA) GO TO 69 

207.' 


AM(1, liaAMCl . 1 )t01DK*RRD*CP0*CS6 

208. 

69 

CONTINUE 

209. 


INKaI+3 

210, 


AN(l,INK)a-QS0BRR0*CR0 

211. 


IF(I .EQ. kappa) AM(1, INK)8aM(1,1NK)-QIDK*RRD«CRP 

212. 


lF(r,EQ.KAPPA + l ) 4M{1 ,INK)b-OIO*RROi»CRD 

213. 


INKsINKfl 

214. 


DO 68 Ksi ,N3P 

215. 


INK8INK+MAT2J 

216, 


AM(1, INK)8.Q30*RRO*ORHOK(K-1) 

21T. 


IF(I.EQ.KAPPA) AM(l,INK)BAM(l,INK)-OIDK*RRD*ORHOKtK-n 

218. 


iFd.EO.NETA) CALL L I AO (K-1 , 1 * 1 . -QIDK*RRD*ORhOK tK- 1 ) i 

219. 

68 

CONTINUE 

220, 

32 

CONTINUE 

221, 


lFd,EQ,(KAPPA-l)) 0eLTA(l8)BS0Y 

222. 


IF(KR(17)) 66>66,65 

223, 

65 

WRITE (KOUT,640) RC, RR, 30y» RRP» RRPD, RRFO, YO l , YDS, OUHl , DUM2 , DVS 

224, 

1,Y0IQ« Y0Q0«QI«QS,DRH0I» (4m(LR»)<> 98 ) , KbNUL , N$Rh i ^ . 

225' 

2 (AM( 1 ,J), JaliNNLEO), ENL(l) 

226, 

66 

LRbMATU + I 

227.' 


0VSaAMAXl(0,,RCB0V3) 

228. 


IFCCBECK.GT.O.) GO TO 18 

229, 


AMd,MATlJ)aAM(l,MATlJ) + 3DY*RC 

230. 

16 

CONTINUE 

231. 


DELTAd8)80ELTA(IS)+RKB(3DY-0ELTAdS)) 

232. 


DELTA(I3)B0ELTAdS)*bEL*ALPH 

233. 


return 

2S4.' 

75 

RCb-RC 

235, 


DV3a0. 

236. 


DO 60 I82,NETA 

237, 


CALL TAYLOR(DETA(I-i j,F (2,1-1 ),F (2,1), XP) 

238. 


0VSaDVS+(F(2,I)*XP(l)+F(3,I)*XP(2)*F(4,I)*XP(5)tFC4,I-n*XP(4)) 

239. 


lFPaI+3 

240. 


IFPPbNETA+I-2 

2«1. 


IFPPPbIFPP+NETA 

242, 


AM(l,IFP)aXP(l)+AM(l,IFP) 

243. 


CALL LIA0(-l,l,IFPP,xP(2)) 

244. 

- 

CALL L1A0(-1,1,IFPPP,XP(3)) 

245, 


CALL LIA0(-1, 1, IFPPP-1,XP(4)) 

246. 

60 

CONTINUE 

247. 


0VSbDVS*RC/F(2,NETA) 

248, 


DO 65 lBl,NNLEa 

249, 

85 

AH(1,I)8-AM(1,I)*RC*2,/F(2,NETA) 

250. 


AM(i,2)aAH(l,2)>RC 

251. 


AM(1,MAT1J)8AM(1,MATIJ)tOV3/F(2,NETA) 

252. 


CALL LIAD(-1,1,NETA-1,RC) 

253. 


OV38AHAX1(RCb(F(1,NETA)-F(1,1))-DV8,0.) 
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2sa. 


return 

255, 

IftOS 

CONTINUE 

256. 


C26S ■ C26*C26 

257, 


EP32 » 0VS/C26S 

258. 


TURPR(I)3PRT 

259. 


TURPRn)»0, 

260. 


I^CELCON.LE. 0.00001) GO To «01 

261, 


IF(IPRT.EQ.I) GO TO 505 

262. 


if(iwk.eq.i) go to aoi 

263. 


IF(CCE0.GT.O..OR.C8ECK.GT.O,) GO TO 505 

26a. 

c***« 

CALCULATES MIXING LENGTH AND ITS DERIVITIVES 

265. 

i 00 

PIM»P1 

266. 


Pl3SORT(A0S(REO/C26*(CAPC(l)*F(3»l)-ALPH«RHOvS*F(2,n)n/ 

267. 

l (C4PC(n*¥AP) 

268. 


lF(I-n 305,305, 101 

269. 

101 

EPIaEXP(-(Pl + PIM)/2.*OETA(I-m 

270. 


PIDbPI-PIM 

27 1: 


IF(PID/PI-.0001 ) 102.102,103 

272, 

o 

ru 

PlaiMAXl (PI.PIM) 

273. 


PlOsl.O 

27a. 


AFsi.O 

275, 


erpi»i./pi 

276. 


ERPPl8-2./(Pl<iPn 

277. 


ERP2*1,/PIM 

278, 


ERPP2=-2./(PIM*PIH) 

279. 


GO TO loa 

280. 

T03 

AFaSQRT(2./PID*DETA(I-l)) 

281. 


ERPlaERP(AF/2.*Pn 

282. 


ERPPlal .-AF*PI*ERP1 

283. 


ERP2aERP(AF/2,*PIM) 

28a.' 


ERPP2al.-AF*PlM*ERP2 

285, 

Toa 

8FbERP1-EPI*ERP2 

286, 


OCLLaEPI 

287, 


DUMiaOETA(I-l)/2.*EPI*(AF*ERP2-CL) 

288. 


CLbCL*EPI+AF*BF 

289. 


EL(n8ALPHAELC0N*(ETA(I)-CL) 

290, 


0UM28AF/P10*(BF/2,+ERPPl/a.*AF*Pl-EPI*ERPP2/o.*4F»PIM) 

291. 


OUM3«AF/2.aAF 

292. 


OCLPIsOUM1-OUM2+OUM3*ERPP1 

293, 


DCLPMbDUM1+0UM2-0UM3*ERPP2*EPI 

29a 


lF(I-2) 305,330,320 

295. 

305 

ELCli-O. 

296. 


00 307 Jal.NNLEQ 

297, 

307 

AM(2, J)aO. 

298. 


CLaO. 

299. 


0PICl,2)a CAPC(l) 

300, 


0PI(3,1)8 F(3,1)*0CAPCH 

301, 


IFCNSPMI) 350,350,310 

302. 

310 

DO 315 Kaj.NSPMl 

303. 

315 

OPI(K + 3,l)a F(3,n * OCAPCK(K) 

30a. 


GO TO 350 

305, 

320 

OO 325 Jai.NNLEQ 

306. 

325 

AM(2,J)8 AM(2,J) • OCLL 

307. 

330 

DUMa-TREF*0CLPM*ELCON<*ALPH 

308. 


AM (2, 1)8 AM{2,l)t(EL(n-0CLL*EL(I-l))/ALPH 

309. 


LBl-l 

310, 

331 

AH(2,l)a AH(2,1)+0PI(1,|)*0UM 

311. 


AH(2,2)a AH(2,2) t 0Pl(2,D* DUH 

312, 


AM(2,3)8 AM(2,3) ♦ 0PI(1,2)*0UM 

313.' 


AM(2,L+3)8 AM(2,L*3)tOPI(2,2)*OUM 

3ia. 


JbMATIJ+2 

315. 


DO 3a0 KaNUL.NSPMl 

316. 


AM(2,J)8 AH(2,J) * 0PI(K«3,1) * DUH 

317. 


jLaJ+L-l 
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31B. 


AM(2,JL)» AM(2,JL) ♦ 0PI(K73,2)*0UM 

31 ’. 

340 

JBJtMAT2J 

320. 

3«S 

IF(L-I) 350#400f400 

321. 

350 

TREFa RE0/C26 /(2,*CAPC(I j*YAP*PI*¥AP*CAPC( I ) ) 

322. 


OPI(3,2)a-PI/TREF*(DC4PCH/CAPC(I)-DRHOH/{2.*BHCl(lhi 

323. 


DPI (2,2 )a C10*OPI(3,2)-RHOV8*ALPH 

32a. 


0PI(l,l)a-C56*C10*0Pl(3,2)-RHOV3*F(2,n 

325. 


0PI(2,l)a-ALPH*Cl*F(2,n 

326. 


IF(NSPMI) 362,362,355 

327. 

355 

DO 360 Ka^.NSPHl 

328. 

360. 

OPI(K+3,2)B-PI/TREF*(OCAPCK(K)/CAPC(I)-ORHOK(Ki/(2.*RHOni n 

320. 

362 

Lor 

330. 


DUMb-TREF*OCUPI*ELCON*ALPH 

331^ 


lF(I-n 445,445,365 

332. 

365 

IF(I-NETA) 331,400,400 

333. 

505 

DELB-VMUE(lSi*C3 

334. 


lNKaI-1 

335. 


ONKa-0, 08333333 

336. 


1F(1-1)510.510,525 

337. 

510 

INKbI 

338. 


ONKaABS(ONK) 

334, 


CIOMbCIO 

340. 


C56MBC56 

341. 


TAUWb-UE( 18)/ALPH*AMAX1 (C28,f.0001)/C3 

342. 


ORHOWdlBORHOH 

34 3. 


DCAPCW(1)bOCAPCH 

344. 


00 515 KBl.NSPMl 

345. 


ORHaW(K«l ) bORHOK(K) 

346. 

515 

OCAPCW(K*nBOCAPCK(K j 

347, 


00 520 Jat,NNLEQ 

348. 

520 

OYA(J)bO. 

349. 


CAPYaO, 

350.- 

525 

VAaOETA(lNK)*C26*(.5-ONK*oETA(lNK)*C53) 

351. 


CAPY3CAPY+VA 

352, 


OYA(naOYA(l) + VA*DEL 

353. 


IF(I.EO.NETA) GO TO 532 

354. 


OYORHOs-OETA(INK)/2,*C26/RHO(n*ALPH*DEL 

355. 


VAaDYORHO*DRHOH*C10 

356. 


0YA(l)a0YA(l)-VA*C56 

357. 


INKbI+3 

358. 


DYAnNK)BOYA(lNK)+VA 

359. 


lNKeINK+1 

360. 


00 530 Kat.NSP 

361. 


INKbINK+MAT2J 

362. 

530 

OYA(INK)80YDRHO*ORHOK(K-1)*OVA(INK) 

363. 


IF(I.EO.I) RETURN 

364. 


IF(ONK.GT,0.) GO TO 406 

365. 


ONKbABS(QNK) 

366. 

532 

CONTINUE 

367. 


UTAUbSORT(TAUW/Rho(I)) 

368. 


IF(CBECK.GT,0.) GO TO 700 

369, 

C ****************)»******** CE6£CI*dHJTH MOOEt a************************ 

370. 


VWPeCFd, 1 )*CltHF(l,S) )/(C5*UTAU*RH0(1 )) 

371. 


VAbYAP*VWP 

372, 


EXPVbEXP(VA) 

373, 


PPLaO. 

374, 


TF(ABS(BETA) .LT.l.E-07) GO TO 540 

375. 


pPLa-RHOE(I8)/C3*UEdS)/C3*BETA*CAPCC.I)/CRHOt n*UTAU)**3 

376. 

540 

CONTINUE 

377. 


EXPVMbEXPV-1. 

378. 


IF(AB3(VWP).LT.1.E-07) GO TO 533 

376. 


EXPVVbEXPVM/VWP 

380. 


GO TO 534 

381. 

533 

EXPyVaVAP 
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38?. 

385. 

38«. 

385. 

386, 

387. 

388, 
389? 
390. 
39 J. 
398, 
395. 

39«^ 

395. 

396. 

397. 

398. 
399 • 

900. 

901. 

902. 
905. 
90<1, 

905. 

906. 

907. 

908. 

909. 

910. 
9U. 

912. 

913, 
9U. 

915. 

916. 

917. 

918. 

919. 

920. 

921. 

922. 
925, 
92U. 

925. 

926. 

927. 

928. 

929. 

930. 

931. 
938. 
935. 
93<l. 

935. 

936. 

937. 

938. 

939. 
940 
941. 


948. 

945, 

944. 

945. 


s34 continue 

EXPVP0EXPVV*PPL 
80EXP»EXPVP+EXPV 
1F(SQEXP.LE.0.03 SQEXPal.oE-30 
SOEXPbSORT(SOEXP) 

ACE0aCCEB*VMU{n/RHa(I)/UTAU/SQEXP 

ACr«ALPH*DEL*CAPV 

YOA»Acr/ACE0 

EXPAaEXP(-VOA) 

EL{I)bELCON*ACY*(1.-EXPA) 

DLDYbELC0N*(1.-EXPA*(1.-Y0A)) 

IF(IWK.EO.I) GO TO 555 
00 545 Jb1,NNLEO 
595 AM(2, J)«DYA(J)*OLOY 

0LDAb-ELC0N*Y0A**2*EXPA 
DAOROb- 1 ,5*ACE0/RHO(n 
OAOCbACEB/CAPCCI} 

DADTAa-.S«ACEB/TAUW 
lF(A0S(VWPj.LT.l.E-O7) GO TO 547 
OAOPPa-ACE0/2./VWP/(PPL/VwP+EXPV/EXPVM) 

OAOVPb-ACE0/2.*(-EXPVP/VWPTYAP*(1.+PPL/VWP)*eXPV j/fEXPVP+EXPV) 
GO TO 550 

597 OAOPPa-ACE0/2,/(PPLTl./YAp) 

OAOVPbOAOPP*(1 .+YAP*PPL/2.) 

550 CONTINUE 

VARa-DRH0H*C10*CS6 

VACs-DCAPCH*C10*CS6 

OAOAbDADRO*VAR-2,*DAOTA*TaUW/ALPH+DAOPP*PPU*(VAC/CAPC (I)« 
ll,5*VAR/RH0(n*3,/ALPH)+0ADVP*VWP«(VAR/RH0(n/2.*l ,/4LPH) 
2+0A0C*VAC 

AM(2.1)bAM( 2, ntOUOAtOADA 

OAOFW8DAOVP*Cl/C3/RHOm/UTAU 

AM(2«2)8AH(2.2)fDLOA*OAOPW 

OAOFWPa(OADTA*TAUW«l ,5*DA0PP*PPL-.5*0 ADVP*VWp)/F(5, 1 ) 

AM(2i3)bAM(2,5)t0L0A*0A0FwP 

INKbItS 

OADFPBDAORO*ORHOH*C10 + OAOPP*PPl.*(OCAPCH*C10/CAPC(n» 

1 1 ,5tDRHOH*C10/'RHO(lj )+DAOvP*VWP*,5*DRHOH*ClO/BHO(I) 
2 tDADC*OCAPCH*C 10 
AM(2f INK) bAM( 2, INK)*DL0A*0*0FP 
INKtINK+MAT2J*l 
MINK8MAT1J+2 

OAOHaOAORO*DRHaH + OADPP*PPL*(DCAPCH/CAPC CD-I . 5 *DBHOH/RHO ( I ) )♦ 
10ADVP<*VWP*.5*ORHOH/RHO(I)tDAOC*OCAPCH 
OCAPOCaOCAPCWCn/CAPCd) 

OAOHW80AOTA*TAUW*OCAPOC-OAOPP*PPt*l,5*DCAPOC- 
10A0VP*VWP*.5*DCAP0C 
AM(2 »MINK )bAM(2,MInk j+DADHW*OLDA 
IF(I.EO.NETA) GO TO 552 
AM (2 , INK) bam ( 2, INK)tOLOA*OAOH 
552 IF(I.EO.NETA) CAU LIAO(0,2, 1,0ADH*0LDA) 

00 551 Kb2,n3P 

INKaINK+MAT2J 

MINKbMINK+MAT2J 

OAOKBOAORO*ORHOK(K-l)+OAOpP*PPL*(DCAPCK(K-n/C4PC{h- 
11.5*DRHOK(K-l)/RHO(I))tOAoVP*VWP*.5*DRHOKCK-i )/ rho(D 

2+0A0C*0CAPCK(K-l) 

OCAPOCbOCAPCW(K)/CAPC(1 ) 

OADKWbOAOTA*TAUW«OCAPOC-OaOPP*PP|.* 1.5*DCAPDC- 
10A0VP*VWP*.5*0CAP0C 
AM(2,HlNK)8AM(2>HINK)t0L0A*0ADKW 
IF(I.EO.NETA) go to 553 
AM(2, INK)bAH( 2, INK}fOLOA*OADK 
555 IF(l.EO.NETA) CALL L I AD ( K-1 , 2, 1 . OLDA*DADK ) 
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4(lb. 

a«7. 

4<IB. 

a««>, 

450. 

451. 
“52. 
<*55. 

454. 

455. 
45b. 
457, 

456. 
45«». 
4b0 . 
«61. 
<*62. 
<*63. 

464. 

465. 

466. 

467. 
466, 
464. 
470. 
<*71. 
<*72. 

473. 
474 J 
4 75. 

476, 

477. 
476, 

474. 
460. 

481. 

482. 

483. 

484. ' 

485. 
4 8b. 
487. 
466. 
484, 
440. 
441 . 

442. 

443. 

444. 

445. 


446, 

447, 

448, 
444. 

500. 

501. 

502. ' 

503. 

504. 

505. 

506. 

507. ' 

508. 
504. 
510. 


«?5i continue 

CALCULATE the turbulent PRANOTL NUhBER 

455 IF(IPRT.NE.I) CO TO 554 
ADP«CCEB/SQEXP 
BDP«CTPR/S0EXP 
YPLUSsACV*UTAU*RHO(n/VMU(l) 

YOAPbYPLUS/ADP 

Y0BPBYPLUS*3QRT(PR(n)/B0P 

PRT»ELCON/TPCON*(1,-EXP(-vOAP) )/( l .-EXP(-YOBP) ) 

554 TURPR(I)«PRT 

IF(CCEB.GT.0.) GO TO 703 

700 CONTINUE 

c ;********************* BECKNITH«BUSHNELL MODEL ********************** 
S0PI"1. 772453851 
ABECKaCBECK/RHO(ll*VHU(n/UTAU 
aCYbALPH*OEL*CAPY 
VAb.ACY/ABECK 
VBbDB*ACY/OELTA(IS) 

VCb5,0*ACY/0ELTA(I3)-3.40 

EXPAbEXP(VA) 

TlBl.-eXPA 

T2bTANH(VB) 

T3b3QRT(.5-.5*ERF(VC)) 

EL(liaBBECK*0ELTA(I8)*Tl*T2*T3 

DROrb1.S«ORHOH/RHO(1) 

C03HRbCOSH(VB)**2 

EXPCbEXP(-VC**2) 

0L0YbDELTA(I3)/ABECK*T2*T3»EXPA+DB*T1 •T3/COShB- 2,5/SOPI*T1 *T2/T3* 
lEXPC 

DLDVbB8ECK*0LDY 

0L0A»-B6ECK*DELTA(I3)*T2*T3*ACY/abECK**2*EXPa 
0LDELbT15T2*T3-0B*ACY/0ELTA(IS)*T1*T5/C03HB+2.5/SQPI*T1*T2/T5* 
IACY/DELTA(I3)*EXPC 
oloel»oloel*bbeck 
00 701 Jb1,NNLEQ 

701 AM(2» J)bOYA(J)*OlOY7AM(1,J)*OlOEL 

OAOA8ABECK*(C107C56*(-0CAPCH/CAPC(n+DROR)7l ,/ alpH) 

AM(2, n»AM(2, nfDLOA*DAOA 
0A0FWP8«ABECK/2./F(3, I ) 

AH(2,3)aAM(2,3)70LDA*DADFwP 

INKbI*3 

DADFP*A8ECK*C10*(0CAPCH/CAPCm-OROR) 

AM(2» INK)»AM{2, INK)*DL0A*0A0FP 

INK«INK+MAT2J+1 

MlNKBHATlJta 

DADHbABECK*(DCAPCH/CAPC(I)-OROR) 

0A0HWb-,5*ABECK*0CAPCWU)/CAPC(1) 

AM(2,MINK)bAM(2,MINK)+0L0A*0ADHW 
IF(I.EO.NETA) CO TO 702 
AM{2,INK)bAM(2,INK)+0L0A*0A0H 

702 IF(I.EO.NETA) CALL L1A0(0,2M >DLDA*0ADH) 

00 707 Kb2,n3P 

INKBlNKtMAT2J 

MINKsMINK+MATEJ 

DA0KbABECK*(DCAPCK(K-1)/CAPC(I)-1 .5*DRH0K(K-i )/RHO(I) 1 
0A0KWe-,5*ABECK*0CAPCW(K)/CAPC(l j 
AM(2,MINK jBAM(2,MlNK)t0L0A50ADKW 
IFd.EO.NETA) GO TO 708 
AH(2 « INK) bam ( 2, INK)tOLOA*OAOK 
708 IF(I.EQ.NETA) CALL LI AO (K-1 , 2, 1 , OLDA*DAOK ) 

707 CONTINUE 

703 CONTINUE 

00 704 Jsl,NNLEQ 

704 AM(2» J)bAM(2, J)/C26/DEL 
ELODELbCL(I)/RHOE(IS)/OEL 
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SJJ. 

512. 

513. 

5 U. 

515. 

516. 

517. 

518. 

519. 

520. - 

521. 

522. 

523. 
52« ,■ 

525. 

526. 

527. 

528. 

529. 
550. 

531. 

532. 

533. 
53U. 

535. 

536. 

537. 

538. 

539. 
5U0. 
5«l. 
5«2. 
593. 
599. 

595. 

596. 

597. 

598 . 

599. 

550. 

551, 

552, 

553. 
559. 

555. 

556. 

557. 

558. 

559. 

560. 

561. 

562. 

563. 
569. 
565. 


566. 

567. 


AM(2,1 )sAM(2»l )-DRHOH*C10*C56*ELODEL 
INKsl+3 

AM(2,INK)oAM( 2«1NK)+0RHOH*C10*EL0DEL 
INKsINK^l 
DO 705 kal,NSP 
1 NK«INK+MaT 2J 
IFd.EQ.NETA) GO TO 706 
AM(2,INK)«AM(2 , INK)+DRHOK(K-i)*ELOOEL 
706 IFU.EO.NETA) CAU LIAOlK-l ,2, 1 ,ORHOK(K-n *ELOnEUi 
705 CONTINUE 

EL(naEL(I)/C26/0EL 
IF<I .EO.NETA) GO TO 406 
INKel 
GO TO 525 

calculates EPSl AND EPS2 — COMPARES TO GET EPS — 

C 

a06 iFClWK.EQ.n GO TO 401 
aOO 0UMlBEL(n/ALPH*ELai/ALPH*RE0/C26 
EP3l»DUMl*A03(F(3.ni 
IFtCBECK.GT.O.) GO TO 405 
IF(EPS1-EPS2) 405«401,901 
aOl EPSeEPS2*VINTRm 
IWKsl 

ENL(3)8ENL{1)/C26S*VINTR(I) 

DO 902 Js1,NNLEQ 

902 AN(3» J)«AM(1, J)/C263*VINTr(I) 

0UMl=2.0*EP3/RHO(n 
GO TO 415 

a05 EP3BEPSl*VINTR(n 
ENL(3)aO, 

DO 910 J«1,NNLEQ 

atO AM(3,J)«2 .i*EP 8 / EL(n*AM{2,j) 

AM(3# l)aAM(3f 1)-2,0/ALPH«EPS 

CALL LlAD(-l»3.NETA7l-2,DuMl*VlNTRm*F (3,n/APS(F 
OUMiaEPS/RHOni 
alS OUMaDUMl*ORHOH 
EP3A<naEP3 

AM(3, 1 )aAH(3» I )-C56*ClO*OUM 
AM(3,I+3)e AM(3, I+3)+0UM*C10 
JaMftTlJ+I+l 
LbMaTU 

DO 920 KaNUL»NSPMl 
IFd-NETA) 418,916,416 
al6 CALL LIAD(K,3,1,DUM) 

GO TO 919 

al8 AM(3 ,J)«aM( 3, JJ+DUM 
al9 JoJ*MAT2J 
a20 OUMaDUMl*ORHOK(KtU 
DEPCoENL(3) 

045 RETURN 
InOO CONTINUE 

C***» MODIFIES ENL AND AM AFTER IMONE 
L'I-1 

SALPHa-ALPH/TTVC 
lF(I-2) 650,650,600 
lo05 CONTINUE 

C***« MODIFIE3 ENL AND AM AFTER lONLV 


CALCULATES EPS 
DERIVTTIVFS 


t3,nn 
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568. 


LSI 

569. 


SALPH8 ALPH/TTVC 

570. 

600 

IFPPOL6NETA-2 

571. 


ISPPbL 

572. 


DUH8F(3,L)/3ALPH 

573. 


ENLCI+3)3ENL(I+3)-DUM*(EPS-DEPC) 

574. 


AM(I63,1)sAM(I+3, 1)«DUM*EPS/ALPH 

575. 


C2eGC2660UH*EPS 

576. 


DO 60S J81,NNLEQ 

577. 

605 

AM(l*3,J)eAM(l+3,J)+0UM*AM(3,J) 

578. 


CALL LIA0(-1,I63,1FPP,EPS/8ALPH) 

579. 


MPJsMATl Jtl-l 

580. 


PRFal.-l./PRT 

581 , 


EGlaG{2,L)/(SALPH*PRT) 

582. 


EG48-pRF/SALPH*Ci3*F(2»L) 

583. 


EG3aEG4*EPS 

584. 


EG4*EG4+EG1 

585. 


EG2bEPS/SALPH*(1 ,/SCT-1,/PRT)*(HP-CPBAR(L)*TP) 

586. 


ENL(MPJ)8ENL(HPJ)-EG1*(EPS-D£PC)-EC2-EG3 

587. 


C32sC32fEGl*EPS6EG26EG3 

588. 


AM(MPJ, DsAMIMPJ, 1).EG1/ALPH*EPS-3.0/ALPH*EG3 

589. 


DO 610 Jal,NNLEQ 

590. 

6l0 

AH(HPJ, jjBAHCMPJ, J)tEG4*AM(3, J) 

591,^ 


AH(MPJ,LT3)aAH(MPJ,|.+3)-PRF*C13/SALPh*EPS 

592. 


CALL. LIAD(-1 ,MPJ,NETA+L-2,-PRF*C10/3ALPH*EPSi 

593. 


call LIAO(0,MPJ, I3PP,EPS/(8ALPH*PRTn 

594. 


IF(NSPMI) 650,650.615 

595. 

615 

DO 630 Kcl.NSPNl 

596. 


0UMaSP(2,L,K)/(SAl.PH*SCT) 

597. 


MPJ8MPJ4MAT2J-1 

598.' 


CK6(K)=CK6(K)6DUM*EPS 

599. 


ENL(MPJ)oENL(MPJ)-0UM*(EP8-0EPC) 

600. 


AM(MPJ, 1)«AM(MPJ, 1)-0UM/AlPH*EPS 

601 . 


DO 620 Jsl.NNLEQ 

602. 

620 

AM(MPJ, J)8AM(HPJ, J)tDUM*AM(3,J) 

603. 

630 

call LIAD(K»MPJ»I3PP,EPS/(SALPH*SCT)) 

604. 

650 

IF(KR(17)} 660,660,655 

605, 

655 

WRITECKQUT,640) EPSOUT 

606. 

640 

FORMAT(/nP10E12,5)) 

607. 

660 

RETURN 

608. 


END 


B19B, ERF 


1. C , 

2, 

3, 

a. 

5. 

b. 

7. 

•>. 

10 . 

11 .' 

is: 


subroutine erf error function 

FUNCTION ERF(X) 

PB.aToa? 

Ala, 3480242 
A2a-, 0956796 
438,7978556 
Tsi,/(l,*P*4BS(Xn 
XSQsX*X 

ERF«1.-T*(AI+T»(A2*T*A3))*EXP(-XS0) 

ERFaSI6N(ERF,X) 

RETURN 

END 
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J . 
2 . 
3. 

a. 

5.’ 

<». 

R. 

10, 

11 . 

12 , 

13. 

I". 

15. 

u>: 

17 . 

Ifl. 

20 . 

21 .' 

22 , 

23. 

2«. 

25.- 

2R. 

27. 

2R. 

2% 

30. 

31. 

32. 

33. 
3U. 

35. 

36. 

37. 
3b; 
30. 
ao. 

« 2 . 

«3, 

ua. 

05. 

« 6 . 

U8. 

ao. 

50. ■ 

51. 

52. 

53. 
5a. 

55 . 

56. 

57. 

58. 

59. 

60. 
61. 


CBiOT 

SUBROUTINE TRANCR 

COMNON/cOECOM/ C5,C6,C7,ce,CO.C10,ci 1 iCi2.C.\3,Ct0.C15 

1,C16,C17»C18,C19,C20,C21,C22,C23»C2«»C25,C26,C27,C2B,C29,C30.C31 ,C 
232»C33.C34«C35»C36.C37«C36*C39«Ca0>C<n»Ca2.CU3.Caa,ca5,CR6.Ca7.Ca8 
3,C49,C50,C51,CS2,C53,C54,c55,C56,C57,C5a,C59,C60.C61,C62,r63,C60,C 
465,C66,C67,C68,C69,c70,C7i,C72,C73,C74,C75,C76,C77,C7B,C70,C80,Cfll 
5,C82,C83.C84,C85,C8b,C87,cee 

COMMON/COECON/ CKlf b).CK2( 6)»CK3( 6)»CK4( 6),CK5( 6).CK6( fc) 

1, CK7C 6i,CK8( 6),CK9( 6),CK10( 6),CKll( 6),CK12( 6),CKi3( 6) 

2, CK14( 6)>CK1S( 61,CK16( 6)<CK17( 6),CK18( bi.CKlOC 6i,CK20( 6) 

3, CK2i( 6)iCK22( 6),CKK1( b« 6).CKK2( 6, 6) . XM (5) . KG (5) . X.SP (5.' 7) 

4, CKK31 6> 6) 

COMMON/EOGCOH/ PE(40, 1),PTE(40, 1),3PE( 6,40. li.OUES, 

lUEla0i,RHOE(40).VMUE(40) ,TE(ttQ),UE00E.DUE0GE.D2UE0G,VMWE,HE.C90 
2,031P(ao),I03IP,TTVC,TVCC(40i,HE4(aoi,SP(20),CS(20),CSPRC205, 

3 CG(20),CGP(20],SREFfGEP.NEN 

COMMON/ET4COM/£74(t5),0£TA<15),OSO(14),OCUUa).S| (141,8? Ma) 

1. L ARC 123), 841 (43, 181.842(30,15) 

COMmon/hISCOm/CI ,C 2,C3,C4,ALPH0,BETA,ZM(a, lai , ZG ( a , i a 1 , ZSP ( a , 1 a , t, 
1 ),XI(40),HF(15,51,HG(15,3),H3P(15,3, 61 ,HALPH,MUE,HHUE,HFiN,DL>^2 

2. C3M(40),BET4M(40) 

COMMON/INTCOM/ KR(20) ,KIN,KOUT,MAT1I,MAT2I,M4T1J,M4T2J,nETA, 1, 1S,M 
1S,1T,HTIME,N3P,NSPM1 ,NAM,nLE0,NNLEQ,NRN1., its, kappa, CB4R, case ( 151 
2,8(8), MWE, NON, KQ(10), ITEM, NITEH,KR17,NST.N0T2,IOENT,KRO(aO) 

3. KAUX0, JTIME, JSPEC,MD(3) 

COMMON/NONCOM/AM( 123, 1 23) , DVNL ( 1 23 ) , TCN , 

1VLNKW,0LPH( 7),0LPK( 6, 7),0THW,DTKW( 6),FLUXJP( 71 
COMMON/PRMCOM/TIMEC 50 ) , PrE( 40 ) , PTE T ( 50),GE( 50 1 , S (40 1 ,R0K4P ( ao 1 

1, RNOSE, VKAP,N0ISC, IDISC(40),NSO(5),HSD(5), ITF( 50 ) . IPRE , RAONC! , CONE 

2, RA0FL( 50i,RA0R(40),RADS(40),lRAD 
CaMM0N/PRPC0M/PR(15l,T(15),RH0(15),SC(l5),CAPC(15).QR(15),H(i5) 

1, CPBAR(l5l, VMW(15),PHIK(II!, 6) , DRHOH, DRHOK ( M,?K( bi,D7KH( bl, n 
2MU3K( 6),0MU4K( 6),0TK( 6),DPHIKH( 6),DPRK( h),nSCK( 6),nC4PCK( 8 i 

3, DHTILK( 6).,0QRK( 6),0CPBK( 6),0CPTK( 6),DMUl2K( bl.pZKKf fe, 6) 

a,OPHIKK( 6, 6), 0MUaH,0MU3H,0HTILH,VMU12,CT,CTR,CPTTL,HTlL 

5, VMU3,OTH,OC4PCH,OPRH,D3CH,DORM,OCPBH,OCPTH,OMU1?H, v«U(15), RHOP 
6(15i,PHlKP(15),HP,TP,ZKP( 6),VMU3P,VMU4P,HTILP,CPH0(ia),r,MR(i5) 

COMMON/TEMCOM/SPOUM( 6),0ER(40),DUMMl(l5),3LnPE(l5),REriUH(l5) 
l.SOUMl (a0),3DUM2(40),FWDUM(4O),XICON(40),FWCDN(u0),FWTN'IT( li 

2, xiiNiT( i),0UDS( aoj 

C0MM0N/VARC0M/F(a,15),G(3,15),3P(3,l5, 7),AtPH 

ENTRY TVCEDG 

UIM«1 

IGHsl 

IF(KR(6) ,GT,0)GO TO 35 
3DUMl(n»0. 

SDUm2( 1 )bO. 

00 25 ISo2,NS 
SDUMICIS) m S(IS) * S(IS) 

8DUM2(IS)al ,-R0KAP(IS)/3 (iS) 

LiMsIS 

IF(IOISC(IS).EQ,1)GO TO 2o 
25 CONTINUE 
20 CONTINUE 

call SLOPL CLIN* SDUmI , 3DUM2,DER, XICON) 

00 30 1302, LIM 
OUMsl. • S0UM2(I3) 

30 TVCCCIS) » 30RT(a,*DER{IS)*(0UM-SDUMl(I3)*DEP(IS))* SDUM 2 ( 1 3 ) /SOUM 

11(I3)*(1.+0UM))/0IJM 

TVCCU) a SQRT(6.*0ERm) 
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62. 


iFCLIM.CE.NSiCO TO 50 

63. 


IGHiLIM+l 

60. 

in 

M»l 

65. 


ILbLIM+1 

ht. 


00 00 IlalL/NS 



MoMtl 

68. 


lF(IDI3C(m.E0,nGQ TO 3ol 

69. 

Oo 

CONTINUE 

70. 

301 

CALL SLOPL(M,saiMj,flOKAP(LIM),OEP(LIH),XICOwa IMl ) 

71. ■ 


LIHbLIM+M-1 

72, 


IF(LIM,LT,n8)G0 to 35 

75, 


00 05 ISalGH.NS 

70. 

OS 

TVCCdS) a 30RT(i,-OERCI3j*OER(ISn/ROKAP(ISi 

75, 

50 

DO 55 ISal.N3 

76. 

55 

TVCC(I8i9-TVCCll3)»2.*C3H(13)*VMUE(I3) 

77. 


RETURN 

78. 


entry tvccoe 

79. 

CAl.tED immediately AFTER ICQEEE 

80. 


IF(I-l) 115,115,125 

81. 

i 15 

RH8aO. 

82. 


DO 120 Jol.NNLEQ 

83.‘ 

120 

AM(<|, JiaO. 

80. 


GO TO 130 

85. 

l25 

INOaI-1 

86, 


3IXa-6, 

87. 


CO TO 100 

88. 

T30 

INDal 

89. 


3IXC6. 

90. 


C27aORHQH 

91. 


00 135 Kai,N3PMl 

92. 

l'35 

CKll(K)eORHOK(K) 

«3, 


IFd-l) 165,165, 100 

90. 

?O0 

OUMaOETACl-l)/2. *RHqE CI 3 j/RHO(lND) 

95.' 


lF(K0(9i .LT.O) OUMa-OUM 

96, 


rhS8Rh3+dum*( 1 .♦rhop(Ino)/rho(ino)*oeta(i-i )/ 3rxi 

97. 


OUMa-DUM/RHOdNO) 

98. 


LPSaMATlJ+IND+l 

99.' 


IFCNSPMI) 155,155,105 

ion. 

ios 

LPInLPS 

101 . 


00 150 Kat,NSPMl 

102, 


LPISLPI+MAT2J 

103. 

Tso 

AM{0,LPn»AM(0,LPI)tOUM*CKll (K) 

100. 

155 

0UMa0UM*C2T 

105' 


AM(0,LP3) a AM(0,LP3) t OU” 

106. 


DUMbDUM*C 7*F(2, INDi 

lOT. 


AM(0,IND+3) o AM(O,iN0+3) ♦ OUM 

108. 


4M(a,l)a AMCO, 1 1 •0U«/ALPH*F(2, INO) 

109, 


IFdNO-n 130, 160,160 

110. 

160 

TTVCbAMAXI (1 , + RHS*ALpH*TVCCdS),0,OOOn 

111. 

T65 

RETURN 

112 .' 


entry TVCMl 

113. 

caL'lec 

1 IMMEDIATELY AFTER IMQNE 

no. 


INOaI-1 

115, 


DUM18-TVCC(IS)/TTVC 

116, 


GO TO 205 

117. 


ENTRY TVCI 

118. 

CAi.LEO 

1 immediately after epsi 

119. 


INOal 

120. 


0UMiaTVCCd31/TTVC 

121, 

205 

DUM2«0UM1«c28 

122. 


DUMSbOUMI* C32 

123. 


AH(It3, 1 )8AM(I+3, 1 )+dUM2*RHS 

120, 


M=MAT1J+I-1 

125. 


AM(M,naAM(M, 1 )+DUM3*RH3 
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I2fc, 

12T. 

128 . 

120 . 

130. 

131, - 


13? 

133 

13a 

13S 

138 

137 

138 
130 




1 « 0 . 



0UM2«DUH2*ALPH 
0LIM3»0UM5* AI.PH 
DO 210 J«1,NNLE0 
AM(I*3, J)«AM(If3* J)*0UH2*4M(a, J) 
?10 AM(M,J)«AM(M,J)*0UM3*AM(a,J) 
IP(NSPHI) 225*225.215 
MS DO 220 K«1,N3PM1 
DUM3 bOUM1*CK6(K) 

MeM+MAT2J«l 

AH(M, 1 )cAM(M, 1 )^0UM3*RHS 

OUM3aOUM3*ALPH 

DO 220 Jal.^NLEQ 

220 AH(M.J) a AM(H,J] * 0UH3*AM(a.J) 
225 RETURN 
END 
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1. 

3 : 

5, 

6. 
7. 

S 

% 

10, 

12 . 

13. 

1«. 

15. 

16. 

18, 

21. 

22. 

23. 

2 «. 

25. 
26; 
2’. 
28. 

26, 

30. 

31. 

32. 
S3' 

за. 

35. 

зб. 

37. 

38. 

36. 
ao. 
ai. 
a2. 
as. 

аа. 
as, 

аб. 

OB. 

06. 

50. 

51. 

52; 

53. 

50. 

P' 

56. 

57. 
58; 
56. 
60 ; 
61. 


CB?OA 

SUBROUTINE EOUlL(KQ,Z,PRRi 

integer PAMOA.FAMOB 

equivalence (TU(l21),Tn, (VNU,CIJ) 

dimension CIJ( 60.1),TF(i5 V 

cOHMON/TEMCOH/APE(ia,ia),BS(io).3i (ia),S2(ia),S3na).sa(io),sS(ta) 
DIMENSION X(ia),KQ(10).VLAM(i23 , J ),cAHK(U'S, n.DQJRNLf 123, 1 ) 
equivalence (AH(259),DQJRnL(126),GAHK,VLAM) 

COMMON /BLOCOM/FAMOAf 60)-FAMOBf 60), N ,FRf 60 , 1 5 ) , W f 3 ) , LFF C 6) 

1 ,LEFS{ 8i,PIEASE,LEFW( 8),L2,L3 

COMMON/BUMCOM/ BUmP,C0BMA,EA8E,IC0RM,M00T,TFZ, I777,DTEMP,KIP,IX 

common/eoocom/ pe(oo, n,PTE(oo, n.sPEf 6,00, n,ouEs, 

lUE(O0),RHOE(O0), VMUE(OO) ,TE(00),UEDGE,DUEDGE,D2UEDG, VMWE,CGE,C60 
2,D3IP(00),I08IP,TTVC,TVCC(00),HEA{<IO),SF(20),CS(20),C8PR(20), 
3CG(20),CGP(20).3REF,GEP,NeN,UINF,RHOINF,HINF,PINF 
COHMON/EOPCOH/RB(60,3),RC(60,3),RD(60,3),RE(60,3) f RF(60,^) ,RG(60,3 
1 j,TU(60,3),FF(60i,FFA,IFC(60),ATA(8),ATB(8),ATC(8),WAT(8),RA(60,3) 
3 1 , 

2 KAT( B),IR( e),lS,KR(tO),LAMI( 60),P,T,TK( 8, 8),VN( 60), 

3 VNU( 60, 8) , ITFF,KR2,HCH,NCV,NM,WTH( 60), Y( 60),YW( 60),GG( 60) 

0 ,TQ( 8, 8),EPOVRK,SIGMA,BASHOL 

COMMON /EQTC0M/SIP,HIP,EL,ENL,FLIQ,CPF,IRE, lER, AA,IT8,IN,IL,IT, 

1 mode, MMELT, smelt, TM AX, TMIN, melt, SUMN,SUML,WS,WS8,B1, I 8P2, ISPO, 

2 ISP,KKJ,8VA,8V8,3VC,3VD,SUMC,FFF,CMF,EP,RV, IFCJC,WTC,WTL, JC,HG, 

3 CPG,TTMIN,TTMAX,L7,L8,IB( 6),EB( 8),EBL( 8 ) , A 1 1 a , 1 « ) ,' Bdui, 

0 1P( 60j,ALP{ 8),FNU( 8),GAMH( 8),GAMFt 8),SLAM( 8),DY( 60),RV8, 

5 CPC 60), H( 60), SBC 60),TCC 60),VLNKC 60), EC 60).PNUSC 8), 

6 BCC 8),BLNKC B),BYC 8),IbC( 8),BEC 8),JJC 0) 

COMMON/FLPCOM/ LEFTC 8,2) 

COMMQN/FLXCOM/OElOt*,OELJW( 6), WALLO, WALL J C 6),0W,VJKW( 7),TPWALL 
COMMON /INTC0M/KKRC20 ),KIn,KOUT,MATII,MAT2I,MAT1 J,MAT2J,NETA,'II, 
1IS3,NS, ^TT,NTIME,NSP,NSPH1,NAM,NLEQ,NNLE0,NRNL,MITS,KAPPA,CBA6, 
2CA3EC15),BBC8), MME,NON,kD(10), ITEM,NITEM»KR17,N8T,NBT2, IOFNT, 
3KR6CO0),KAUXO, JTIH£,JSPEC,MDC3),IU,I8H 
COMMON/NONCOM/AMC123, 123),0VNL(123),TCW, 

IVLNKW,0LPHC 7),0LPKC 6, 7) ,0THW,DTKWC 6),FLUXJPC 7) 

COMMON /PRPC0M/PRC15),TT(t5),RH0C15),SCC15),CAPCC15),0Rn5),MHC15) 
l,CPBARC15),VMWClS),PHIKas, 6),DRH0H,DRH0KC 6),ZKC 6),0ZKHC 6), D 
2MU3KC 6),DMU0KC 6),0TKC 6),DPHIKHC 6),0PRKC 6),0SCKC 6),nCAPCKC 6) 
3,0HTILKC 6),0QRKC 6 ),DCPBkC 6),0CPTKC 6),DMU12KC 6),DZKKC 6, 6) 

0, DPH1KKC 6, 6), OMUOH,DMU3H,DHTILH, VMU12,CT,CTR,CPTII,,HTIL 

5, VMU3,DTH,DCAPCH,DPRH,03CH,DORH,DCPBH,DCPTH,dmu12H, VMUCIS), RHOP 
6C15),PHIKPC15)|HP,TP,ZKPC 6) , VMU3P, VMURP , HT ILP , CRHO C 1 0 ) , GMR C 1 5 ) 

C0MM0N/VARC0M/FC0,15),GC3,15),8PC3,15, 7),ALPH 
COMMON/WAlCOM/FWCOO, 1),TwC 00, 1),HWCOO, l),SPWC 6,00, 1) 

1, RHOVWCOO, l),FLUXJC 3,00, 1) , IHW, ITW, IFW, I8PW, IRHOVW, IPLUXJ 
E0UIVALENCECB,X) 

COMMON/UN 1C0m/UC0,UCE,UCL,UCM,UCP,UCR,UCS,UCT, DC V, I TDK 

1 ,IUNIT,1PL0T,KAC2,16) 

1 FORMATC10II,3F10.5) 

2 F0RMATC5X,6HTEMP "FlO.O, lx, A6,5X,6HPRES e I PE 1 O .’3 , 1 X , A6, 5X , 

I 6HM0L WT 6 ,F11.7) 

3. FORMATC /B7H 3PECIE8 PAR, PRES, D-LOG-PP LOG-PP LO 

IG-KP flag error CP / C 1 X2A« , «E 1 3 .5 , 15, 2El 5 .5 ) ) 

0 FORHATC/10X33H CP-FROZEN CP-EQUIL GAMMA , 

1 /13X,A6,7X,A6,/9X3E12.5) 

7 FORMATCI3,FB,2,llEl0.3/91x3El0,3) 

8 FORMATCIOXIOHENTHALPY ■ElO,7,lX, A6 ,11H ENTROPY »E12.5,1X,A6 ,/ 

1 10X,6HDENSITV PEt3,6,lX,A6) 

6 FORMATC//) 

9 F0RMATC5X5HVEL ■ 1 PE 1 0 . 3, 1 X , A6 , 1 OH MACH NO,siPFio.3) 
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62.' 

to 

rORMAT(10X17HPRACTlON LIQUID aP8.5) 

63. 

42 

rORMAT(8Fl0.4) 

64. 


OTUaSOO. 

65. 


DTDbDTU 

66, 


LEFUPbI 

67. 


TTMINbSO.O 

68, 


TTMAXalOOOOO. 

66. 


iQQaO 

70. 


MELT«1 



FLIQbO. 

72. 


hmelt»o. 

73. 


iTSaO 



IGaO 

75. 


INVaO 

76. 


SPEASeaPlEASE 



TIONalSOO, 

78. 


iSPalS+l 

76. 


DO 302 lai^6 

80, 

302 

KRdiaKOm 

81, 


HODEbKR(I) 

82. 


IF(kR( 5) ,NE,3)PaPRR 

83. 


KKJaO 

84. 


KR(8J«0 

85. 


KR(6)aKR(6)-l 

86. 


lF(KKR(l8).6i 3021,3021*3022 

87. 

3021 

KR(7)aKKP(18)*5-9 

88. 


N7a51-KKR(18)*5 

86. 


GO TO 3023 

90. 

3o22 

KR(7)aO 

91. 


N7aKKR(18)*10-50 


3o23 

IF(KR(5)-1) 310,304,306 

93. 

C*«***ISENTRQPIC EXPANSION 

94. 

304 

SIPaSIP-OSIPnSS) 

95. 


lEWa2 

66, 


IlaNETA 



IF(M00£.NE.2) go to 324 

98. 


HlPaZ/l.a 

66, 


GO TO 324 

100. 


►stagnation point and initialization 

101. 

306 

IF(KR(5).EQ.3) go to 307 

102.' 


KRCaiaO 



iTFFaO 

104. 


PlEASEeO. 

105, 


K0(6)a0 

106. 


HlPaZ/l.S 

107. 


MiTSal 

108. 


IlaNETA 

106; 


VMW(NETA)bVMWE 

110. 


T83000. 

111. 


MHaSO, 

112. 


AAaPaWH 

113. 


DO 306 Ial,l8 

114. 

306 

ALPdiaTOCI, n 

115, 


KR(6)a-l 

116, 


IF(ITEM-I) 350,508,350 

117. 

308 

lF(KKR(2)-a) 311,350,311 

Its; 

310 

lF(KR(6)i 312,330,330 

116. 

311 

LEFUP a •! 

120. 


IF (KKR(12)-l) 384,350,38a 

121. 

C*****3H0CK ENTROPV CAUCULATION 

122 . 

307 

SAlaZ 

123. 


KKJa-1 

124. 


SVAa(1.3146*RHOlNF*UINF*Co8(SAl))**2/90108 

125. 


SVBBSVAa2./1.98b6 
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126^ 

12T. 

128. 

12^ 

130. 

131, 

132, 

133. 
13a, 

135, 

136. 
13T, 
138. 
135. 

lao, 

lai . 
1«2. 
ia3, 
laa. 
las; 

1U6. 

U7, 

ia». 
lao. 
ISO, 
isi . 
152^ 
1S3. 
isa.' 

155, 

156. 
15T. 
158. 
155. 
160.‘ 
161. 
162, 
163. 
16 a, 
185. 
166, 

187. 

188, 
189, 

170. 

171. 

172. - 

173. 
17a. 

175. 

176. 

177. 

178. 

179. 

180. 
181. ■ 
182, 
183. 
18U. 

185. 

186. 

187. 

188, 
189. 


SVCa(UINF*COS(SAin**2/90lOe,4HlNr 
SVDiPINF+SVB/(l ,3ia6*RH0lNF) 
lF(3Al,GT,0.0001)Ga TO 32a 
paPTEd.l) 

T»TCH 
CO TO 32a 

c*****boundary layer 

;12 DO 3120 KaNSP,I3 
3l20 ALP(K)»0. 

LEFupBMrT3+rr-2 
HIPbZ/1,8 
ALP(NSP)«1.0 
lF(N3PMn 3iai,3iai.313 
313 00 3ia K«l,N3PMl 

ALP(K)a3PniII»Kj/WTM(K) 

5ia ALP(N3P)aALP(N3P)-3P(l,Il,K) 

3iai ALP(N3P)aALP(N8P)/WTM(N3P) 

00 319 t«l,I3 
lF(KAT(n.E0.99) GO TO 319 
ARPHaO, 

ARPHMaO. 

00 315 Kal.NSP 
OUMaCIJ(I.K)*ALP(K) 

ARPHMaAMAXl (ARPHM^ABSCDUM)) 

315 APPHaARPH+OUH 

lF(lI.E0.1.ANO.LEF«(I).EQ.l,ANO.LEF(n,LE.O) LEFtlial 
IF(ARPH-.OOOUARPHM) 316,316.319 

316 IF(Il,EQ.l.ANO.LEF(h.EQ,l) LEF(I)80 
LEF(na-IA83{LEF(li) 

LCF3(na-.IABS(LEFS(n) 

319 CONTINUE 

320 IFCITFF) 326,350,350 

C*;***ACCEPT RE810ENT VALUES AS FIRST GUESSES 
32a IF(T-TIONj 326,398,398 

326 ITfFbITFF+ 1 
iFdl-lj 323,323,322 

322 IGal 

CO TO 350 

323 IF (ITFF) 327,329.329 

327 IF(KR2-1) 328,329,328 

329 CO TO 350 

328 IF(KATdS) .EQ.99) LEFdS)a-lABS(LEFdS) ) 

IF(LEFUP) 393,389,393 

c*****hall solution 

330 lEWat 
lTFFa»l 
Hal 

CHFLUXaW(3) 

PIE ASEaP IE ASE*0, 989* (1. 0-EASE) 

KR(7)BMAX0(KR(7),KKR(16)*5-a) 

IF(TTd)/1.8.CT,TF(N*n) KR(8)al 
IF(MODE-l) 333,331,333 

331 TTMINaTTdi/l. 8-500. 

TTMAX8TT(1)/1.67500. 

KR(8)aO 

333 IF(KR(8).E0.1) CHFLUxa-1. 

00 332 Kal.IS 
IF(LEF(K)) 332,3331,332 

3331 IF(W(2)*TK(K,L2)*ChflUX*Tk(K,L3).LT.O.) LEF(K)b1 

332 ALP(K)aTO(K,L2)*AMINl(0,,W(2))*TO(K,L3)*AMINi(o.,W(3h + TOfK,n* 
1 AM1N1(0,,W(1)) 

wSa-Wd J-w(2)-W(3) 

WSSb-AMIN 1(0,,W(1 ))-AMlNl(0,,K(2))-ANINU0.,W(3n 
00 335 LaNSP.IS 
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190. 


DO 334 KBl.IS 

lOl. 


6*HK(K,L)bO. 

l<»2. 

334 

GAMK (L,K)aO. 

193. 


GAMH(L)aO. 

194, 

335 

GAMF(L)aO, 

195. 


IF(NSPMI) 3361,3361,3351 

196. 

3351 

00 336 Ka2,NSP 

197, 


GAMH(NSP)aGAMH(NSP)-0QJPNl.(2,K)/WTHCNSP)*l ,8 

I9fl, 


GAMF(N8PiaGAHF(NSP)-D0JRNL(l,K)/WTH{N3P) 

199. 


ALP(NSP)8ALP(NSP)7WALLJ<K-n/WTM(N3P) 

200, 


ALP(K-liaALP(K-n-WALLJ(K-n/WTM(K-l ) 

201. 


GAMH(K-1 )aOQJRNU(2,K)/WTM(K-l 1*1.8 

202, 


GAMF(K-l)aOOJRNL(l,Kl/WTM(K»l) 

20S. 


DO 336 KKb2,NSP 

204, 

336 

GAMK(KK-l,N3P)aGAMK(KK-l,N8P)-GAMK(KK-l ,K-n 

205, 

3361 

DO 3362 Kal,I3 

206, 


DO 3362 JalSP.N 

207. 

3362 

VLAH(J,K)aW3*WTH(J)*GAMF(K) 

208. 

C 

binary D1FFU3ION 3£T UP 

209, 


1F(IS,LE.N3P) GO TQ 3364 

210, 


NSPP9N3P71 

211. 


DO 3363 KaN3PP,I3 

212; 


GAMK(K,K)al ,0 

213. 


DO 3363 JalSP.N 

21«. 

3363 

VLAM(J,K)aVNU(J,Kl 

215. 

3364 

DUM1BN3PH1 

216. 


DO 340 Kal,N3P 

21T. 


GAMHCK)a-CAMH(K) 

218. 


SUHGaO. 

219. 


IF(N3PMi) 3392,3392,3391 

220J 

3391 

00 339 KKal,N3P 

22U 


IF(KK-K) 337,359,337 

222. 

337 

SUM6bSUMG*GAMK(KK,K) 

223. 

339 

CONTINUE 

224. 


3UM083UHG/0UM1 

225,' 


ALP (K) 8-ALP (KitSUNG/WTM(K) 

226. 

3392 

DO 338 KKel,N3P 

227, 

338 

GAMK(KK,K)b-(GaMK(KK,K)-3iiMG)/WTM(K)»WTM(KK) 

228. 


DO 340 KK8l,NSP 

229, 


DO 3401 JaI3P,N 

230. 

3u01 

VLAM(J,K)aVLAH(J,K)+GAMK(KK,K)*VNU(J,KK) 

231, 

340 

GAMK(KK,K)bGAMK(KK,K)*HTM(KK)*GAMF(K)*W3 

232. 


‘•RECALL 8TORED VALUE3 OF BOUNDARY LAYER SOLUTION 

233, 

c 

re-initialized omitted species 

234. 

350 

IF {TT(II).LE.O.O) IG81 

235. 


IlBlI-IG 

236. 


P1Nb1.E-4*P 

237. 


PINL»AL0G(PIN) 

238. 


LIMbN+KRCS) 

239. 


DO 354 Ial,LIM 

240. 


IF{IFC(I)-1) 342,342,341 

241 . 

341 

lFC(naIFCm-3 

242. 


GO TO 345 

243, 

342 

iFCIFCm*!) 343,345,345 

244. 

343 

lFC(I)aIFC(I)73 

245. 

345 

IF (IFCni) 346,349,346 

246. 

346 

VN(I)8FR(I,II)*P 

247. 


iFCdiai 

248, 


Y(I)aO. 

249, 


IF(VN(I)1 347,347,350 

250. 

347 

IFC(I)8-1 

251. 


IF n-IS) 348,346,350 

252. 

348 

Y(J)8PINL 

253. 


GO TO 3530 
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25U, 

549 

IF(FR(1, 11)1357,357, 352 

255. 

357 

IF(vn(I)) 351,351,358 

256. 

558 

IF(II-I) 353.351.353 

257. 

551 

VN( I i»PIN 

258. 


00 TO 353 

259, 

552 

VN(I)«FB(I,in*P 

260, 

553 

V(l)«4L9C(VN(n + l,E-35) 

261. 

3530 

IF(II-I) 354,3531,354 

262. 

3531 

IF(IS-I) 354,3532,3532 

263. 

3532 

V(I)«YW(I) 

26«. 


IF(FR(I,1)-1.E-30) 354 . 3533,354 

265, 

3533 

VN(l)»EXP(V(lh 

266. 

354 

CONTINUE 

267, 


T-TTdii/l.a 

268. 


lF(T.0T.TI0N.0R.K4T(ia).NE,99) 00 TO 

269, 


LEF{IS)*-I4B8(LEF(IS)1 

270. 

356 

MMbVHW(II) 

271, 


IIBZ17IG 

272, 


IF(LEFUP) 364,364,393 

273. 


>reevaluate absent atom array 

274, 

364 

JT«H00(1TEM,2)+1 

275, 


00 382 KB1,1S 

276, 


LEFW(K)bO 

277. 


LEFS(K)bLEF(K) 

278. 


LEF(K)«l 8 lONaEFT(K, JT),UEF(K)1 

279, 


!F(LEF(K)-2) 369,365,382 

280 . 

365 

lF(tU-l)369,369,367 

281, 

367 

IF(KKR(3i) 369,369,382 

282. 

369 

LEF(K)«MIN0(LEF(K),0) 

283. 


lF(KKR(9)-2i 370,382,381 

284, 

570 

0UM1«1 ,0 

285, 


OUM2BO. 

286. 


IF(NSPMl) 3721,3721,3701 

287. 

3701 

DO 372 J«1,N3PH1 

288, 


0UM1b0UM1-SPW(J,I3S,ITT) 

269, 

372 

0UM290UM2*3PW(J,ISS,iTT)*cIJC<»J) 

290. 

3721 

IFCABSCDUMI J-l.E-7) 376,174,374 

291, 

574 

DUM2bOUM2aDUH1*CIJ(K.N3P) 

292. 

576 

IF(DUM2) 362,362,360 

293. 

380 

LEF(K)bi 

294. 


GO TO 382 

295, 

381 

IF(W(2)*TK<K,L2)+W(3)«TK(k,L3).LT.O.: 

296, 

382 

continue 

297. 


GO TO 393 

298, 


‘INITIALIZE 3P(,,) AND VN() ON FIRST 1 

299. 

384 

JTFFb-NETA 

300, 


NCVbO 

301. 


TT(1)b3000. 

302, 


VMW(1)b20, 

303^ 


KR2bKKR(2) 

304, 


1F(KR2.LT.0) KR2B1 

305. 


IF{KR2.E0.1) GO TO 367 

306; 

385 

DO 386 Kb1,N3P 

307. 


DO 386 IsI.NETA 

308. 


SP( 1 ,I.K)bALP(K)*MTH(K) 

309, 


8P(2.I,K)bO, 

310. 

386 

SP(3.I,K)a0, 

311. 


W(1)bO. 

312, 


W(2)b0. 

315. 


W(3)b0. 



DO 3668 Isl,IS 

315: 


IF(KAT(I),EQ.99) GO to 3867 

316, 


LEF(I)80 

317: 


lF(TK(I,l)i 3868,3866,3867 
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31fl, 

3867 

LEF(n=3 

319. 

3868 

CONTINUE 

32n. 

387 

00 388 1*1. !S 

321, 


IF(ALPCn) 393.388,388 

322. 

388 

CONTINUE 

323, 


DO 3881 Jol.N . 

324. 


SBCJ)*0. 

325. 


HCjioO, 

326. 


00 3881 IsI.NETA 

327. 

3881 

FRCJ, I)*0. 

326. 


DO 392 1*1, IS 

32Q, 


VN{n«AMAXl (VN(li/P*,l,AUP(l)*AAj 

330, 


IFdFCdn 390,391,340 

331. 

390 

iFC(n»i 

332. 


vd)*o. 

333. 


GO TO 392 

334. 

391 

Yd)»ALOG(VNdn 

335, 

392 

CONTINUE 

336. 


►DELETE MOLECULES BASED ON ABSENT ATOM ARRAY 

337^ 

393 

LAMOal 

33B. 


00 3971 K«1,I8 

334. 


1F(LEF(K)) 394,3930,3934 

340,’ 

3934 

1FCPIEA8E-.99) 3931, 3931, 393i 

341. 

3930 

lFCP.IEASE-,01-) 394 , 394,3933 

342.' 

3033 

IFCLEFSCKii 3932,394,3931 

343, 

-- "3931 

IFCII-NETA) 397,3932,397 

344. 

3932 

IF(LEF(K)-3) 394 , 397,394 

345. 

394 

DO 396 Jel.N 

346. 

- - ■ 

IFdA0SdFC(J))-n 389,389,396 

347.- 

389 

1F(M00(LAMI (J)/LAMD,2) ) 345,396,395 

34fl, 

3'»S 

VN(J)bO. 

349, 


lFC(J)«IFC(J)-3 

350.-"- 

396 

CONTINUE 

3'51. 


Js-IR(K) 

352. 


lFdFC(J)-n 3461,3961,397 

353, 

3461 

IFC(J)aIFC(Jj *6 

354. 

397 

LAMD*LAM04LAM0 

355, 


LEF(K)«IA03(LEF(Ki ) 

356. 

3971 

LEFS(K)aIA03(LEFS(Kn 

357, 


‘DELETE CONDENSED SPECIES FROM BOUNDARY LAYER 

358, 


IF(KR( 6 )i 3980,398,398 

359, 

3980 

DO 3984 JB 1 ,N 

360. 


IF(IA0S(IFC<J))-n 3984,3981,3984 

361. 

3981 

IFC(J)»IFC(J)-3 

362. 


VNCjjaO. 

363, 

3484 

CONTINUE ■ 

364. 

398 

1F(KR(7)-1) 21,21,1902 

365, 


‘EVALUATE properties 

366. 

(70 

CPFoCPF/AA 

367. 


IFCKRI5) ,E0,3) go TO 19 

368. 


HG*0. 

369. 


HL>0 . 

370.' 


WTL*0. 

371, 


SlPaO, 

372. 


DO 1703 J« 1 ,N 

373. 


SlPB3IP+VN(J)*(SB(jj-1.9869*Y(J)) 

374. 


IFCIFCU)) 1703, 1704,1705 

375. 

1704 

HG«Hr. + VN{J)*H(J) 

376. 


GO TO 1703 

377. 

1705 

HLbHL+VNIJI^HCJ) 

378, 


WTLbWTL + VN(J)*WTM(J) ---•••• 

379. 

1703 

CONTINUE 

380. 


SIP» 8 IP/AA — 

381. 


HIPb(HG4ML)/AA 
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302.’ 


irCKR(6)i 1701,1932,1702 

383. 

1702 

RVaRVSf (RV«RV3)/EASE 

384. 


IF(KR(0 j.GT.O) W(3)*W(3 )-vN(N+1)/A*. 

305, 


WSa-W(l )-W(2)-M(3)*l ,E-30 

38fc, 


HlPa(HG*(HL-W7L/4A*HG)/WS)/A* 

38T. 


GO TO 1932 

308, 

1701 

lNal3+2 

30«». 


IGaMlN0(lQQ,-KKR(20) ) 

390. 


CALL RERAYCIN, A,0>B,0,0,lG,14,31,32,35,34,85i 

391, 


ALFbA(2,1)/A(1,1) 

392. 


CSPal./(A(l,l)*AAl 

393. 


BEThbP*(A(2,2)-A(1,2)*ALF)-1. 

394, 


lMM00E-3j 1931,1932,1911 

395, 

1q3i 

CSPaC8P/T 

396. 

1432 

CALL PROP8 

397, 


WMaAA/P 

398. 


GAMal.>ALP 

399. 


GAMal ./(! ,«SETH-1 ,9869 /AA*GAh/C8P*GAH*P) 

400. 


GMRdliaGAH 

401, 


IF(KR(5))195,195,194 

402, 

195 

lF(KR(7i) 11,11,194 

403, 

i9(i 

UCETbUCT/UCE 

404, 


VAbCPP*UCET 

405. 


V0aCSP*UCET 

406. 


L«IUNIT*1 

407, 


WRITE<KOUT,4) KA(L,4),KA(L»«i»VA,VB,GAM 

408, 


IT38-1. 

409. 


iQUTPUT PACKAGE 

410, 

19 

WMbAA/P 

411. 

1902 

VAap/UCP 

412. 


WRITE(K0UT,2)T,KA(L,5)>VA,KA(L,2),WM 

413, 

1901 

FORMAT(SX40HRElAT1VE masses of components 1,2 AND 3 

414. 


SHlPaHIP 

415, 


8SIPB3IP 

416, 


HiPaO. 

417. 


SIPaO. 

418, 


00 20 jBl,N 

419. 


HlP8HIP+H(ji*SIGN(VN(J),W7M(J)) 

420, 

20 

SlPaSIP* VN(J)*(8B(J)-1,9869*Y(J)) 

421. 


N»N+KR(8) 

422. 


HIP8{HIP+VN{MELT)*FLIQ»HMeLT)/AA 

923. 


SIPb(3IP+VN(MELT)*FLI0*3MeLT)/AA 

424, 


RHfl8P/T*WM/l.3146' 

425. 


VAbHIP*UCET 

426. 


VB«SIP*UCET 

427. 


VCaPHR/UCO 

428, 


WRITE(KOUT,0)VA,KA(L,6),V8,KA(L,4),VC,KA(L,0i 

429. 


IF(PLIQ) 204,205,204 

430. 

2 O 4 

WRITECKOUT, 10) FUQ 

431, 

205 

IF(IT3) 2051,203,205 

452. 

2o5l 

IF(KR(5)-1) 203,202,201 

433, 

201 

IF(KR(5),EQ,2)C0 to 200 

454, 


Z83IP 

455. 


GO TO 203 

436, 

200 

HCHaHIP 

437. 


TCHbT 

438. 


SREFbSIP 

439. 

202 

VELS0b(HCH-HIP)*2, 

440. 


VMACHa30RT(VELS0/5AM*WM/(t .9869 bT)) 

441. 


VELaSQRT(VELSQ*45054.) 

442, 


UE(lS3)aVEL 

443. 


HEA(I38Jb1.8*H1P 

444. 


IF (VEL^ 2021,2021,2022 

44!:. 

2o2l 

AREAbO. 


SE12.5) 
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\ 

GO TO 2023 . 

2022 ARE4»1./(VEL*RHR) 

2n23 VA»VEL/UCL 

WRITE(KQUT,9)VA,KA(L,7j , VHACH 
203 irCiQO) 2036, 1203> 1203 
1203 IF(ITS) 2031,2036,2036 

2031 DO 2033 Isl,N 
2ft33 VN(n»VNn)/P 

WRITE(KOUT,2032)(P4MOAm,EAMOBa), VN(r )« lal ,N) 

DO 2035 Ial,N 
2n35 VNCI)sVNni*P 

IF(MODE-I) 2034, 2037.2034 

2037 WRITE(KOUT,2038) F AmOA ( JC ) , F AMOR ( JC ) 

2038 f0RMAT(22H SURFACE SPECIES IS 2A4) 

2032 format (/3(SX7HSPECIES3X8HmOUE FR.2X)/(5X2A4,e12,5.5X2AU,ei 2.5.5X2A 
14,El2.5h 

GO TO 2034 

2o 36 WRITE(K0UT,3) (FAM0A(n,FAM08(n,VN(n,DYm;Y(n,VLNK(li,IFCCn,E 
i(n,CP(n,iat,Ni 
2 o34 WR1TE(K0UT,6) 

NbN-KR(8) 

IF(ITS) 11,1021,1021 
mai HipaSHiP 
SlPaSSlP 

C«****pRINC1PaL iterative loop 

21 iFinS) 109,110,109 

109 IF(MOOE) 111,111,110 
U91 iTSalTStl 

110 CALL THERM 

111 MOOEaKRCli 
lOGaO 
FLIQaO, 

CALL f^ATER 
8laR(l) 

211 MOEsl 

IF(KR(7)-1) 2101,210,2102 
2?02 lOQa»2 

wRiTE(KouT,2iooi a,i«i,isi 
210 WRJTE(K0UT,7) lTS,T,A4,EL,ENL,CHF,fEa),l8j,jsi 
2i00 format (50HIIT3 TEMP PReS*MWT EOUIL E« MASRAL ER SCALF. 7CI3, 
17H MAS0AL)/9OX3(I3,7H MASBAL)) 

2?0l IF(ITS) 2103,221,221 

2103 IF(MOOE-l) 170,2104,170 

2104 TWALCsT 
GO TO 170 

221 iTSalTS+l 

IF(IT3-503 2219,2219,222 
2219 iF(1TS-n7) 22,2222,2222 

222 lFO<KH(l8j) 2226,2226,2225 

2225 WRITE(KOUT,2000) 

2000 FORMAT ( ///2X , 50H- — -FOLLOWING OUTPUT NON-CONVERGENT------ ------- 

1-/70H ISS, ITEM, II,MrTS,lTS,IQg,KR(6),HIP,SIP,TT(Ili/ALPf li/LEFdi 
2/FRn,iin 

WRlTE(KOUT,30l7)ISS,ITEM,lI,MlTS,ITS,IG,XR(6),HIP,SIP,TTf in 
WRITE(KOUT,3018) ALP 
WRITECKOUT,3019) LEF ■ 

WRITE(KOUT,3018) <FR( 1 , 1 1) , lal ,N) 

3nl7 F0RMAT(7I5,2XIP5E12.5) 

3018 FORMAT(2X1P10E1 I ,4) 

3019 FORMATtaxiOISj 
lQQa-2 
KR(7)al 

2226 iTSa-l 
NCVbNCV+1 
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510.‘ 


NONaNCV 

511. 


lF(NCV-20j 170,170,2220 

512. 

2220 

MlTSalOO 

513. 


GO TO 170 

514. 

2222 

KR(7)«3 

515.' 


lOQa-2 

516. 


CO TO 22 

517, 

22 

ISPQBINAIL-I 

518, 


iCTalO 

SIR, 


OUMlaO, • 

520, 


DO 2205 I>1,1SPQ 

52U 

2205 

BSCn-Bd) 

522. 


GO TO 2208 

523. 

2207 

DO ^206lalL,!SPQ 

524. 

2?06 

BmaBSd) 

525, 

2208 

DO 2204 I«l,ISPO 

526, 


DO 2200 Jal,ISPQ 

52tJ 

2200 

APECI, J)«Ad, J) 

528, 


IF02) 2204,2204,2201 

52R. 

2201 

IF(IFCd-2i-l) 2204,2204,2202 

530, 

2202 

Bd)aO, 

531. 


DO 2203 Jat,ISPQ 

532, 


aPE(J,!)bO. 

533, 

2203 

APEd,JiaO. 

534, 


APEd,I)Bl.O 

535, 

2204 

CONTINUE 

536. 


iGalQQ 

537. 


CALL RERAY(IN,APEnL,IL),e,Bdl 

538J 


lCTaICT-1 

53R. 


IF(ICT-IQQ) 222,2209,2210 

540. 

2209 

lQQa«2 

541 , 

2210 

IF(IG) 2212,2221,2221 

542. 

2i?13 

IF(INV) 2216,2213,222 

543; 

2213 

lF(KR(6h 2227,2230,2230 

544, 

2230 

LAMDbI 

545, 


DO 2229 Kal,I8 

546, 


J«-IR(K) 

547, 


if(ifc(j).ct,i) go To 2229 

548, 


DO 2228 JB1,N 

549, 


1F(VN(J),0T,1.E-30 .and, mOO(L. 

550, 

2228 

CONTINUE , 

551. 


LEF(K)a-IA83(LEF(K'n 

552, 


LEFW(K)b-IABS(LEFW(K)) 

553. 


INVa-l 

554.' 


iTSal 

555, 


GO TO 393 

556. 

2229 

LAMOblAMD+lAMO 

557. 

2227 

INVa«l 

558, 


PINbP*I.E-5 

559, 


DO 2215 Ial,N 

560, 


iFCIFCmi 2215,2214,2215 

561. 

2214 

VNdjaVNdj+PlN 

562 ■ 


yd)BALOC(VNd)) 

563, 

2215 

CONTINUE 

564, 


GO TO 1)1 

56s: 

2216 

IF(KR(6)) 2217,222,222 

566. 

2217 

lTSa999 

567. 


GO TO 111 

568: 

C*#** 

*IF TRYING TO PUSH THROUGH TMIN 

569. 

2221 

IFCT-THIN) 2223,227,220 

570, 

2223 

TbTMIN 

571, 


GO TO 1091 

572. 

227 

IF (X(l)) 228,220,220 

573: 

220 

XF (T-TMAX) 223,229,2224 


mOO(LAMI(J)/L4MD,2) .'nE.O) go to 2229 


OB TM4X -- reinvert AND OT TO ZERO 
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57 «, 

575. 

57h, 

577. 

57R, 

57Q. 

SBft^ 

581 , 

58?. 

585. 

58u; 

585. 

586 . 

587. 

588. 

589. 
59 n; 
591. 
592; 
595. 
59 a, 

595. 

596. ' 

597. ' 

598. 

599. 

600. 
601. 
602. 
605, 
60U, 

605. 

606. 

607, 

608, 

609, 

610, 
611. 
612. 
615. 
6 1 a 

615, 

616. 


617, 

618. 

619. 

620. 
621 .' 
622. 


625,' 

624, 



2?24 79TMAX 

GO TO 1091 

?29 IF(X(1)) 223,223,228 ^ 

C*****IF NEW condensed HAS N£G CORRECTION, DELETE AFTER RETNVERT 

225 iFClEFn 226,212,226 

226 lF(X(IER)+l.E-4) 225,212,212 
225 DO 2252 Isl,ISPQ 

ACIER, 1)90, 

2252 Ad.IERJsO. 

BS(IER)b-1,E-8 
ACIER, IER)«1.0 
GO TO 2207 

C*****IF S.E. ERROR AND CORRECTION ON T OF CONFLICTING SIGN , RE I N VE RT 
212 IFCMOOE-Ii 224,215,224 

215 lF(xCl)*8l+.OOOOn 228,218,218 

C*****ON S.E, IF delta LN T ,GT. ,9 REINVERT NO DT IF EL AND FNL ARE SMA 
218 lF(AB3(X(in-0. 9)224, 224, 228 

C***.*IF converged except for T on H or S OPTIONS — NON CONVERGENT 
228 iF(mODE-I) 2281,214,^280 

2280 IFCELtl00.*ENL-l.E-4) 222,222,2281 

C**»**QN S.E. OPTION RESULTIN IN CONFLICTING E RROR /CORREC T TON OR T PUSH 

c*****iF other balances relatively good, set t to tmjn/tmax as per error 
C*****aN0 go to therm (IF T ALREADY THERE • NONCONVERGF) EL3F DT TO ZERO 
214 IFCAB3CB1)-100.*(EL+ENL)) 2281,215,215 
?15 TTmiN*TT(i)/i, 8-500. 

TTMAXaTTMINAlOOO. 

IF(BI) 216,216,21? 

216 IF(T-TMIN) 170,170,2161 
2l6l ToAMAXI (T-OTD, THIN) 

TTMAXaT 

OTUaDTO/2, 

GO TO 1091 

217 IF(T-TMaX) 2171,170,170 
2l7l TRAMINl (TMAX,T+DTU) 

TTMINsT 

OTOaOTU/2, 

GO TO 1091 

2281 XCl)«0. 

MODEso 

INalN-i 

ILa2 

GO TO 2207 

224 lF(x(2)+l ,0)2240,2249,2249 

2240 BSC2iaO. 

AC2,2)ai.E25 
GO TO 2207 

2249 CALL CRECT(MOE) 

TMlNaTTMlN 

THAXaTTMAX 

IFCKR(7)-1) 21,21,19 
11 pIEASEaSPEASE 
RETURN 

end 
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u 

2. 

3. 

«. 

5 ; 

A. 

T. 

«. 

10 . 

11 . 

12 . 

13, 

U. 

l'«, 

lb. 

IB, 

10 . 

20 . 


CB?U 


,n»( bO, 15).Wf3),LEF{ 8) 


SUBROUTINE THER>< 
dimension cue bO.l).TF(l) 
equivalence (TUC121 j.TF), (VNU.CIJj 
COMMON /BLOCOM/FAMOaI bO.FAMOBI 60), N 

1 ,LEF3( a),PIEASE,LEFW( 8^L2,L3 
pOMMON/EQPCOM/RB(bO,3),RC(bO,3),RD(bO;3),RE(bO.S) f RF(b0.^) .RG(bO,3 

n,TU(b0,3},Fp(60}.FFA,IFC{60),ATA(S),ATB(8),ATC(8),WAr(A),RA(60,3) 

*» . . . ■ ■ 

2 KAT( 8),IR( e),lS,KR( 10 ),LAMI( 60),P>T,TK( 8, 8),VN( bO), 

3 VNU( bO, 8), ITFF,KR2,HCM,NCV,WM,«TMt 60), V( 60),yw( 601, GG( 60) 

4 ,TQ( 8, 8),EP0VRK,3IGMA,BASM0L 

COMMON /EQTC0M/8IP,HIP,EL,FNL,FlI 0,CPF, IRE, lEfl,AA, ITS, IN, IL, IT, 

1 MOOEfHMELT,SMELT,TMAX,TMlN,MELT,SUMN,8UML,WS,NSS,BI.ISP?, ISPO, 

2 ISP,KKJ,3VA,3V8,3VC,SV0,SUMC,FFF,CMF,EP,RV,IFCJC,WTG,WTL,JC,HG, 

3 CPG,TTMIN,TTMAX,L7,U8,IB( 0),EB( 8),EBU( 8),Afl«,lU), B(lfl), 

4 IP( bO),ALP( 8),FNU( 8 ),gAMH( 8),GAMF( 8),SLAH( 8),DV( 60),RV8, 

5 CPC 60), H( bO),SB( 60),TC( bO),VLNK( bO),E( bO),PNUS( 8), 
b BCC 8),BLNK( 8), BTC 8 ),IbC( 8),BE( 8),JJ( 4) 

COMMON/INTCQM/KKRC20),KIN,KOUT 


2 ^ 

S 

hooepmrci) 

22. 


IF (ITS) 50,10.50 

23. 

10 

WTGbO. 

24. 


WTL»0. 

25. 


IF (KRC 8 )) 40,40,15 

26, 

15 

IF (IFCCN+li-t) 25,20,25 

2 T. 

20 

IF (T+. 001 -TF(N+n) 25,25,30 

2 fl. 

25 

IFC(N*1)b-1 

20 , 


VN(N+1)bO, 

30. 

30 

DO 35 Kb1,I3 

31.' 

35 

VNU(N4l,K)B-TQ(K,L3) 

32. 


WTlb-VNCNaD 

33. 

40 

OUM 2 SO. 



SUMNbO. 

35. 


DO 45 lBi,I3 

3b, 


PNUSCDbO. 

3T. 

45 

3LAM(I)bO, 

38, 

50 

HMELTbO. 

30. 


FUIQBO, 

40. 


3MELTB0. 

ai. 


mELTsI 

42. 


TMINbTTMIN 

43. 


tmaxbTTmax 

44, 


TFMAXB500, 

"s: 


VAb 1,0860 

4b, 


RTb VA*T 



VBbaLOG(T) 

4B. 


IBI 

40. 


DO 235 IKal.N 

50. 


JMELToO 

51. 


JB3 

52, 


IF (IFCCIj+l) 165,85,85 

53, 

85 

IF (IFCCD) 00,05.120 

54. 

00 

IF (MOOE-l) 165,160,165 

55. 

05 

IF (ITS) 165,100,165 

5b, 

106 

SUMNa3UMNtVN(l) 

57. 


DUM1bWTm(I)*VN(I) 

58, 


WTGbWTGtOUMI 

5’, 


DUM2bDUM2+DUM1/FF(I) 

bO. 


lF(VN(l)i0T,l.E-20) Y(I)8 aL0G(VN(J)) 

bl.‘ 


IF (IK-IS) 105,105,110 
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62. 

10s 

PNUSmoVM(I) 

61. 


SLAM(naVN(I)/FFm 

64. 


GO TO 165 

65. 

lln 

00 115 K51,IS 

06. 


OUMlaVNU(I,K)»VN{h 

67. 


PNUS(K)aPNU3(K)+0UMl 

6«: 

1 15 

SLAM(K)sSLAMtK)*OUMl/FF(n 

60. 


GO TO 165 

70, 

120 

IF (IFCm-1) 125.125/165 

71. 

125 

IF (ITS) 150,130.150 

72. 

13n 

IF (KR(6n 145/ 135/ 135 

73, 

135 

IF (T-TF(I 14.001) 140,140,145 

74. 

140 

IFC(I)»-1 

75. 


VM(I)«0. 

76. 


GO TO 90 

77. 

145 

WTL5WTL4VN(I)*WTM(1) 


150 

IF (MOOE-n 165,IS5/J6S 

70. 

155 

TMlN5AMAXl(TMlN,TF(in 

80. 

160 

TFMAKaAMAXI (TFdi/TFMAX) 


?65 

rP(T-A8S<7Ud/ nn 170,170,171 

82. 

l'7fl 

J«1 

83. 


GO TO 175 

84, 

i7l 

lF(T-ABS{TU(I,2)n 172,172.175 

85. 


JB2 

86, 

175 

cP(nBVA*(RA(i, j)4T*(PB(i,j)4T*(PC(i, j)4T*(Pon, j)4T*PEn, jnin 

0’. 


H(I)5 VA*(RF(I,J)4T*(RA(l,J)4T*(RB(I,J)/24T*(RCn,J)/34T*(BP(I,J) 

88. 


l/44T*PECI,J)/5n))) 

80. 


SB(D »VA*(RC(I/ J)4RA(I/J)*Ve4T*(RB(I/J)4T*tRCn,J)/?4T*(R0(I,Jj 

on. 


l/34T4RE(I,J)/4))h 

01. 


IF (M00E>2) 210,180,180 

02. 

180 

IF (IFC(h-l) 210,185/210 

OS, 

i"s 

1F(TU(1,J)) 190,210,210 

04. 

lOO 

1F(taTU(I,J)) 200,195,205 

05. 

Tos 

HMELTsHCn-HHELT 

06. 


3MElT«SB(I)-8HELT 

07. 


HELTil 

08. 


IF(JMELT.EQ.I) go to 210 

00, 


JMELT"! 

ion. 


JsJtl 

101 . 


GO TO 175 

102.' 

200 

TMAXiAMINl (TMAX,-TU(I,J)) 

103, 


GO TO 210 

104. 

205 

TMIN*AM4X1 (TMIN,-TU(I,J)) 

105, 

210 

TC(I)a-HCI)/RT 

106. 


VUNKCIlaTCC 1)450(1)/ 1,9869 

107.' 


IF {IK-13) 215,215,220 

108. 

215 

BLNK(I)aVLNKm 

lOO. 


IBCCDalFCm 

110. 


BC(l)aTCCI) 

Ill, 


GO TO 235 

112. 

220 

DO 230 Kai,IS 

113. 


IF (1BC{K)41) 230.225,225 

114, 

225 

VLNK{I)aVLNK(I)-VNU(I,K)*BLNK(K) 

115. 


TC(naTC(I)-VNU(I.K)*BC<Kj 

116. 

230 

CONTINUE 

117. 

235 

ial4l 

118. 


IF (MODE-1) 250,240,250 

no. 

24n 

IF (TFMAX-T) 245/250,250 

120. 

245 

TaTFHAX 

121. 


IF(T-500.) 248,248,5 

122. 

?48 

WRITE(K0UT,249) 

123. 


3T0P 

124. 

949 

F0RMaT(///38H no available 3URFACE 3PECIE3, .' .STOP) 

125. 

250 

IF (IT3) 385,255,385 
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12h, 

255 

AAaP*WM 

127. 

365 

3UMN«3UMN/P 

I2fl. 


3UML»AL0C(3UMN) 

12<». 


PFFBWTG/0UM2 

no: 


WTGbMTG/3UMN 

131. 


WTLbu^TL/SUMM 

132. 


SUMCBl ,0 

13S. 


IF(KR(6)) 3eS,365«365 

I3fl. 

565 

00 370 iBi.rs 

135, 


PMUS(I)BPNUS(n/SUMN 

13ft. 

37ft 

3LAM(I )bSLAM(I)/3UMN*FFF 

137. 

375 

IF (WTL/WTG-WS) 385,385»380 

13B. 

38ft 

3UMCbWTL/{WTG*WS) 

135. 


WTLbHTL/SUMC 

140. 

38s 

RETURN 

1«1. 


end 
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CB?2& 

SUBROUTINE MATER 
dimension VLAMn23,l),xaa) 
equivalence CAM(25Rj,VLAM) 
dimension cue 60,l),TF(li 
DIMENSION ECOlbO) 

equivalence (TU{iai),TP),(VNu,CIJ) 

COMMON /BLQC0M/FAMQA( 60),FAMOB( 60), N ,FR( 60 , 1 5 ) , W ( 5 ) . LEF { 8) 
l.LEFSC B),PIEASE.LEFW( 8) 

COMMON/BUMCOM/ BUMP,COrMA,EASE, ICORM,WDOT,TFZ, IT 77,DTFMP,KTP, IX 
COMMON/EQPCOM/R8(60,3)»RC(60,3),RO(60,3) ,RE(60,3) ,RF(60,5) ,RG(60,3 
J),TU(60,3),FF(60),FFA,IFC(60),ATA(8),AT3C8), ATC(0),WAT(8i,RA(6O,3) 

2 KAT( 8),IR( 8), I3,KR(10),LAMI( 60),P,T,TK( 8, 8),VN( 60), 

3 VNUI 60, 8),ITFF,KR2,HCN,NCV,WH,I«TM( 60), Yt 60).¥W( 60), OR! 60) 
n ,TQ( 6, 8),EP0VRK,3lGMA,aA3M0L 

COMMON /EQTC0M/SIP,HIP,EL,ENL,.FLI0,CPF, IRE, IER,AA, ITS, IN.IL, IT, 

1 M0DE,HHELT,8MELT, TMAX,TMiN,MELT,SUMN,SUML, WS,WS9,B1 , ISP2, ISPQ, 

2 ISP,KKJ,3VA,SVB,SVC,9V0,SUHC,FFF,CMF,EP,RV, IFCJC,wtG, wtL, jc,hg, 

3 CPG,TTMIn,TTMAX,L2,L3,I8{ R),EB( 8),EBL( 8 ) , a ( i « , ) u ) , B () a ) , 

a IP( 60),ALP( 8),FNU( 8),CAMH( 8),GAMF( 8),SlAM( 0),nVf 60),RVS, 

5 CP( 60), H( 60),SB( 60),TC( 60),VLNK( 60), E( 60),PNUS( 8), 

6 BCC 8),BLNK( 8),BY( 8),IbC( 8),BE( 8),JJC a) 
COMMON/KlNCOM/MT,FKP(lO),EAK(lO),EXK(10),PMUf 8, 10),PMU( 8,10), 

1 0KPTC10),PKPn0),PKR(l0),RAT(10),RSIGn0),MAn0),LLn0),PMRn0), 

2 PRMUI 8,10),EESE( 8) 

C0MM0N/N0NC0M/AM(123, 123) ,DVNL(125), Tew, 

1VLNKW,DLPH( 7),0LPK( 6, 7 ) , DTHW , DTKW ( 6),FLUXJ8t 7) 
COMMON/INTcOM/KKR(20),KIN,KOUT 
EQUIVALENCE(B,X) 

WSSaWS 
DO 5 I»1,I3 
5 IBCn)«IFC(I) 


5 a. IF(KR( 6 )) a0,20,20 


3S, 

20 

IF (ITS) 25,40,40 

36, 

25 

DO 35 Ial,I8 

3T. 


IF (IBCd)-!) 35,30,35 

38, 

30 

I0C(I)a-l 

36. 

35 

CONTINUE 

ao.' 

40 

RV»WSS-WTL/WTG 



IF(ITS.EQ.O) RV3 8RV 

aa. 


IF (KR(7)-1) 70,45,50 


as 

IF (ITS) 70,60,70 

aa. 

50 

write (K0UT,55) FFF,WTL,WtC,AA,RV, alp, PNUS, slam 

4B. 

55 

FORMAT (32H FFF,WTL,WTG, Aa,RV/AlP/PNUS/3LAM/1 X5E12. 5/(1 XI OE 12.5) ) 

46. 


KR(7)»XR(7)-l 

47; 


IF (KR(7)-l) 70,60,70 

48. 

60 

WRITE (K0UT,65) (I,I>1,IS) 

46. 

65 

FORMAT (SOHlITS TEMP PReS*MWT EOUIL ER M/iSRAL ER SCALE 7(13, 

SO.' 


17H MA98AL)/60X3(I3,7H MASBAL)) 

51. 

C 

INITIALIZE 

52. 

70 

EL»0. 

53. 


CPGsO, 

54.' 


EP«P 

55. 


CPFaO. 

56. 


JC*0 

57, 


JCSbO 

58. 


iSPsIS+l 



I3PQ8IS+2 

60. 


B(1)»0. 

61 .' 


B(2)«0, 
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<>2. 


ACnUaO. 



*(1.2)a0. 



A(2ni*o. 

<.5: 


A(2,2)«0. 

66. 

C 

..INITlALIZe contribution Of MOST SIGNIfiCANT SPECIfS IN EACH 

67. 


00 75 1«1»I3 

68, 


EB(1)oO. 

60.' 

75 

E(I)oAA*ALP(T) 

7ft. 


ISP2«ISP0 

71. 

C 

- - « MAIN BASE SPECIES LOOP 

72^ 


00 325 IKaniS 

73. 


Ia2-IR(1K) 

74. 


If (KAT(IK)-99) 85,80,85 

75, 

80 

PNUS(I-2)aO. 

76, 

C 

ZERO MATRIX 

77. 

85 

00 90 Kal.ISPQ 

78. 

90 

A(K,nsO. 



If (ITS) 110,95,110 

8ft. 

C 

NORMALIZE ON PRESSURE ON FIRST PASS 

81. 

95 

VN{I-2)aVN(I-2)/3UMN 

63. 


EC0(I-2)a(l.-EASE)AY(I-2) 

83. 


EBL(I-2)»0. 

ea. 


If (I8C(I-2)) 110,100,105 

85. 

too 

V(I-2)«T(I-2)-3UML 

86; 


GO TO no 

87. 

lOS 

VN{I-2)«VN(I«2)/SUMC 

88. 

c 

INITIALIZE SOME MORE 

8«, 

lln 

B(I)oO. 

oo. 


A(I,1)»0. 



lP(I-2)«0, 

93. 

C 

set fLAG Indicating significance of species in mass 

’5. 

C 

BAlANCE(S) and increment count on significant species 

9tt. 


If (VN(l-2j-EBL(I-2n 120,120,115 


115 

IPd-Zla-l 

96. 

C 

treat base species containing but not representing NON. present 

97, 

c 

elements in same manner as non-present condensed species 

98. 

120 

IF a0C(I-2)7l) 325,125,125 

90. 

125 

If (IBC(I-2)) 180,215,130 

100. 

13n 

A(i,n«i, 

101. 


VA«VN(I-2) 

102, 


If (IABS(IBC(I-2).3)-n 135,280,140 

103. 

135 

A{2,I)»1.0 

104, 


GO TO 280 

105. 

140 

If (EB(l-2)-AB3(VA)) 145,150,150 

106. 

14s 

Ee(I-2)«AB3(VA) 

107. 


IE(I-2)aI"2 

108, 

150 

E(I-2)»E(I-2)-VA 

109, 


IF (KR(6)) 155,160,160 

no. 

155 

If (MOOE-li 280,170,280 

111, 

160 

DO 165 Kal,IS 

112. 

165 

ACK + 2, 1)a-iATMn-21*{PNU3(K)/WTGAC4MF(K) ) 

113. 


ACI,naA(I,ini, 

110, 

170 

TMINbAMAXI (THIN, TF(I-2)) 

115. 


If (T-Tf {I-2)+.00U 175,175,180 

116, 

175 

A(I,I)al,0E*10 

117. 


E(I-2)a-VN(I-2)*l .OOlE+lO 

118, 


MQOEaO 

no. 

l8o 

If (MODE-1) 185,190,185 

120. 

18S 

IF CKR(B)) 280,280/190 

121. 

19o 

If (TFCI-2)+,001-T) 325,195,195 

122. 

19s 

IF (JC) 205,205,200 

123, 

200 

If (Y(l-2)-BjC) 325,325,205 

120. 

?Q5 

aJC8Y(I-2)-EC0(I-21 

125. 


JCSaJC 
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I2h. 


TMAX«TF(I-2) 

127, 


JC*I-2 

IZ». 


lFCJC8l0C(I-2) 

12<». 


IF (KR(8)) 210.210,280 

iJn. 

210 

A( 1, JC3«2)80. 

13' . 


A(l, no-1,0 

132. 


8(1 )oBJC 

133. 


GO TO 325 

13U, 

C 


135. 

215 

VAavNCI-2) 

136. 


CPGoCPG*VA*CP(1-2) 

137, 


A(I, n»VA 

138. 


A(2,noVA 

13% 


EPsEP-VA 

lan. 


IF (KATCIKj-OOl 220,275,220 

l«i. 

220 

IF (KRCbi) 275.250,225 

142. 

22s 

DO 230 KOI, IS 

143. 

350 

A(K + 2, ho(VLAHa-2,K)+GAMH(K)*H(I-2))*VA 

144. 


A(I,noA(I,l)*VA*RV 

145. 


DUM2oWTM(i-2)/WTG*»<TL/WTG*VA 

146. 


DO 245 KOI, IS 

147. 


IF(EBL(K).GT.A03(A(K + 2,n)) GO TO 240 

148. 


lP(I»2jo-l 

140. 


IF (EB(K)-ABS(A(K42,nn 235,240,240 

isn. 

23o 

eb(k)oa3S(a(k+ 2, n ) 

151. 


IB(K)oI.2 

152, 

240 

E(K)oE(Kl-A(K*2, n 

153. 

24s 

A(K+2,I)oA(K+2, I )+0Uh2*PNuS(K) 

154, 


GO TO 280 

155, 

25o 

0UMlaWTM(I*2)/WTG«VA 

156. 


0UM2*WTL/WTG*DUM1 

157. 


IF (KR(4)) 255,255,260 

158, 

25s 

OUMiaO. 

150. 


VAx (RV«1 , )*VA 

160. 


GO TO 265 

161, 

260 

OUMloOUMUd .-FFF/FF(I-2)) 

162. 


VAa(RV*FFF/FF(I-2))«VA 

163, 

26s 

DO 270 Kol.IS 

164. 

27o 

A(K+2, I joOUMl*SLA«(K)*OUM2*PNU3(K) 

165, 


A(I, I)oA(I, n + VA 

166. 

27s 

EB(I-2)oA0S(VA) 

167. 


18(1-2)81-2 

168, 


E(I-2)*E(I-2)-VA 

160. 

26n 

IF (MOOE-2) 320,300,285 

170. 

28s 

IF (I0C(I-2h 325.295,290 

171. 

20n 

HO38S0( 1-2) 

172. 


CO TO 305 

173. 

29s 

h03b33(I-2)-1.9869*Y(I-2)-1,9869 

174. 


GO TO 310 

175, 

300 

h03oH(I-2) 

176. 


IF (IBC(I-2)) 325,310,305 

177. 

30S 

A(1,I)8H0S 

178. 


GO TO 315 

170. 

310 

A(1,I)«H03*Vn(I-2) 

180. 

31S 

A(1,2)8A(i,2)-h03*VN(I-2) 

181. 

320 

CPF8CPF+CP(I-2)*VN(I-2) 

182. 

32S 

CONTINUE 

183. 


DO 350 I8J,I3 

184. 


BE(I)8E(I) 

185. 

33o 

BY(I)3V(I) 

186, 


IERbO 

187. 


IREsO 

188. 


EERaO. 

180. 

C 

- - - MAIN NON-BASE 3PECIE3 LOOP 
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190. 

35o 

LIMiN+KR(8) 

I’l. 


ir (L1M«I3P) 730,355,355 

1«2. 

355 

J»I3P 

193. 


DO 725 IKaI3P,LlM 

194. 


IF (IK-N) 365.365*360 

195. 

360 

E(ji«l.E-10 

196. 


IF (IFC(J)) 410.725,445 

197. 

365 

IF (IFCtjj+li 725.370,370 

i9b; 

370 

IF (IT3!| 390,375,390 

199. 

375 

VN(J)*VN(J)/SUMN 

200. 


IF (IFCIJi) 390,385,380 

201 : 

380 

VN(jj«VN(jj/3UMC 

202. 

, 

GO TO 390 

203. 

385 

Y{J)«Y(J)-3UML 

204, 

390 

ECJ)«VLMK(J)-Y(J) 

205. 

206. 


DO 405 Z«1,IS 
IF (IBCdi) 400,400,395 

207, 

395 

FNUCliaO. 

20fl. 


GO TO 405 

209.' 

400 

FNum5VNU(j,n 

210. 


E(J)5E(J)*FNU(I)*0Y(I j 

211. 

405 

CONTINUE 

212. 


lF(KR(6h 409,409,406 

213. 

406 

IF(ITS) 408,407,408 

214. 

407 

ECO(J)«a .-EA8E)*ECJ) 

215, 

408 

E(J)aE(J)-ECO(J) 

216. 

409 

EAB«AS3(E(Jh 

217. 


IF (IFC(J)i 410,590,445 

218, 

C 

CONDENSED SPECIES 


410 

EA3«E(J) 

220. 


IF (KR(6)i 425,415,4(5 

221 . 

4(5 

IF (T-TF(J)7,00() 420,425,425 

222. 

42o 

EABsO. 

223. 


IF (KR(8)) 535,535,545 

224. 

425 

IF (E(J)-EER) 535,535,430 

225.” 

43o 

EER«E(J) 

226.' 


IF CIEPi 435,435,440 

227. 

435 

ISPQnlSPQ+l 

228. 


lERsISPQ 

229. 

440 

lEalER 

230. 


IREsIK 

231. 


GO TO 450 

2J2.‘ 

445 

lSPQaISPQ«l 

233. 


IEbISPQ 

234. 

450 

WTR«0, 

235. 


IF (KR(6i) 460,455,455 

236. 

455 

TMIN«AM4X1 (TF(J) ,TMIN) 

237. 


WTR»WTM(J)/WTG 

238, 

460 

DO 465 la(,ISPQ 

239. 


A(I,IE)aO. 

240 ■ 

465 

AdE.liaO, 

241. 


DO 480 Kal.IS 

242, 


OUNiaVNU(J,K) 

243. 


IF (IBC(K)-l) 470,470,480 

244.' 

47o 

VAaOUM(*VN(J3 

245. 


A(K + 2, IE)80UM1-WTR*(PNUS(kUGAHF(K)*WTG) 

246. 


BE{K)B0E(Kj-VA 

247. 


IF (ABS(VA)-EB(K)) 480,480,475 

248.’ 

475 

EB(K ja4B3(VA) 

249. 


IB(K)8lK 

250. 

48o 

CONTINUE 

251, 


K8IE-ISP2 

252. 


IF (IK^n) 505,505.485 

253. 

485 

JJCKiaJC 
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254, 



255. 


IF CJC-18) 495,495,490 

256. 

49a 

A(1E,1)>TC(JC) 

257, 


BdEiaEtJC) 

25fl. 

49s 

EABa-B(IE) 

25«>. 


IF (IFCJC) 715,715,500 

260. 

50o 

EABpASS(EAB) 

261. 


GO TO 715 

2«. 

50s 

JJ(K)aJ 

265. 


JJ(K)BJ 

264. 


A(IE,l)aTC(J) 

265, 


BCIE)»E(J) 

266. 


IF (TT.OOJ-TF(J)l 515,510,510 

267.' 

510 

IF (KR(8i) 530,530,540 

26fl. 

515 

IF (MODE-n 520,525,520 

26«>. 

52o 

IF (KR(6i) 530,525,525 

270.' 

52s 

A(IE,IEiai,E+10 

271. 


B(IE)a-VN(J)*1.001E+lO 

272.’ 


mooe»o 

273. 

53o 

IF (MriDE-2) 535,575,580 

274. 

53s 

IF (MOOE-l) 715,540,715 

275.' 

540 

IF (T-TF(J)-.OOl) 545,545.560 

276. 

54s 

IF (JC) 555,555,550 

277. 

55o 

IF (E(Jj-BJC) 725,725,555 

27«. 

S5s 

BJCaECJ) 

279. 


JCalK 

280, 


TFCjCalFC(JC) 

201, 


TMAXaTF(J) 

202, 


IF (KR(6)j 565,565,560 

203. 

S6o 

IF (MOOE-2) 725,575,500 

204. 

56s 

BtlilaBJC 

205. ‘ 


00 570 Kfl.IS 

286, 

S7n 

A(t,K«2)a.FNU(K) 

207. 


A(l,l)aTC(ji 

200. 


GO TO 725 

209. 

57s 

HOStH(J) 

290.' 


GO TO 585 

291.; 

500 

HOSaSa(J) 

292. 

58s 

A( 1, lElaHOS 

29 5.' 


A(l,2)aACl,2)-VNCJ)*H03 

294. 


CPFaCPF+CP( J)*VNC J) 

295. 


GO TO 715 

296. 

C 

GAS PHASE SPECIES 

297, 

59n 

IP(J)»0 

290. 


IF tVNCJli 595,715,595 

299. 

59s 

10*0 

300. 


.CPGaCPG+VN(J)*CP(J) 

301 . 


IF (KR(6)) 625,600,605 

302. 

60o 

FFJaFFF/FF(J) 

303. 

60s . 

DUMlaWTM(J)/WTG*VN( J) 

304. 


0UM2*0UM1/WTG*WTL 

305.- 


IF (KR(6)) 610,610,625 

306. 

6lo 

IF (KR(«)) 615,615,620 

307.' 

6ls 

OUMlaO. 

300. 


FFJal .0 

309. 


GO TO 625 

310.' 

62o 

DUMlaDUHl*(l.-FFJl 

311. 

62s 

DO 680 Klal,I3 

312.' 


ia2-IR(KI) 

313, 


VAaVNUCJ, I-2)*VN(J) 

314. 


IF (KAT(KI)-99) 630,645,630 

315. 

63n 

IF (KR(6)i 645,640,635 

316. 

63s 

VA*VA*RV + VN(J)*(VI.AM(J, I-2) + GAMH(I-2)*H(J) ) 

317.' 


BE(I-2)aBE(I-23-VA 
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31«, 


A8SVA«ABS(V4) 

310. 


VAaVAAPNUSO2)*0U82 

320: 


GO TO 650 

321. 

64a 

VBaVA*FPJ 

322. 


VAaRV*VAAVB 

323. 


BE(I-2)bBE(I-2)-VA 

324. 


ABSVAbABS(VA) 

325. 


VAaVAASLAM(I-2)*0UMU0UH2*PNU3(I-2) 

326, 


GO TO 650 

327. 

64q 

BE(I-2)aBE(I-2)-VA 

32fl. 


ABSVAaABS(VA) 

320. 

65o 

IP (ABSVA.£Bt.(I-2n 660*660,655 

330.' 

655 

IQ»1 

331, 


IP (ABSVA-EB02)) 670,670*665 

332. 

660 

IF (ABS(VA)-EBL(I-2h 680,680,670 

333. 

665 

EB(I-2)aABSVA 

334, 


IB(I-2)aIK 

335. 

67n 

DO 675 Ka3,I8P2 

336. 

675 

A(I,K)aA(I,K)+VA*FNU(K-2) 

337 ; 


B(naBm-VA*E(J) 

338. 


A(I,naA(I,n-VA*TC(J) 

330 . 


A(2,I)aA(2,n*VN(J)*FNU(I-2) 

340.' 

680 

CONTINUE 

341. 


IF (IQ) 715,715,685 

342. 

6 S 5 

EPbEP-VN(J) 

343 , : 


lP(J)a-l 

344 , 


B(2)aB(2)«VN(J)*E(J) 

345. 


A(2,1)»A(2,1)-VN(J)*TC<J) 

346, 


IF (MOOE-2) 710,690,605 

347^ 

60n 

HOSaH(jj*VN(J) 

3UH, 


GO TO 700 

340 . 

695 

H0S8VN{J)*(88(J)-1,9869*¥(J)-1,9869) 

350, 

700 

00 705 la3,ISP2 

351. 

70s 

A(l,naH0S*FNU(I-2)+A(l,lS 

352, 


A(l,2]aAn,2)-H0S 

353, 


A(l,l)aA(l,li-HOS*TC(J) 

354. 


B(1)8B(1)-H0S*E(J) 

355 ; 

710 

CPFbCPF*VN(J)*CP(J) 

356. 

715 

IF CEU-EAB) 720,725,725 

357.' 

720 

ELaEAB 

358. 

725 

jaj+1 

350 , 

7So 

CONTINUE 

360, 


iSPSalSAl 

361. 


IF (MOOE-2) 785,735,760 

362. 

735 

CPAbCPF*T 

363. 


SHMLTbHmEUT*VN(MEI.T) 

364. 


EHSbAA*HIP+A(1,2) 

365,’ 


IF (KKJ+1) 750,740,750 

366. 

740 

DUM1b8VA/AA*T*T 

367. 


EH38AA*SVC-0UM1*A(1,2) 

368, 


HlPa-A(l,2)/AA 

360. 


A(1,2)b-AAb3VC«0UPU 

370. 


CPAb(CPF*2.*0UM1/T)«T 

371, 


DUM2aSVB/AA*T 1 

372. 


PaP»EP 

373 , 


EPaO. 

374. 


IF (AB8(EHS/A4)-10,) 745,745,750 

375.' 

745 

EPB-Pt3V0-0UM2 

376. 


A(2,1)bA(2,1)«0UH2 

377 . 


A(2,2)b.0UM2 

378. 

750 

IF (KR(2)-M0DE) 765,755,7fc5 

370. 

755 

A(l,2)a-AA*HIP 

380, 


GO TO 765 

381. 

760 

CPAbCPF 
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38?; 


SHMLTb5MELT*VN(MEI.T) 

383, 


EH8oAA*3IP+A(1i2)-1,9669*(P-EI 

384. 


A(1,2)s«AA*SIP 

38S. 

765 

B(l)«B(l)fEHS 

38h. 


ACl.lisAd.n^CPA 

387. 


IF (SHMLT) 785.785,770 

368.' 

77o 

IF (EH3) 785,785,775 

380. 

775 

EHS«EHS.-3HMLT 

390. 


B(hiB(n-3HMLT 

301 . 


IF (EH3) 760.785,785 

392. 

78n 

FLIQ«l.+EH3/SHMl,T 

303. 


MOOEaO 

394, 


All, ijol.E+lO 

39S.V 


TMINoSOO, 

39(>, 


TMAX85000. 

397. 

785 

ENU«Aes(EP)/P*100. 

398. 


DO 810 ia3,ISP2 

390. 


E(l-2)a8Ea-2) 

400. 


EBL(I-2iaEB(I-2)*l,E-7 

401. 


A(I,21a-AA*Al.P(I-2) 

402. 


IF (IFC(I-2)-n 795,705,790 

403. 

79n 

NFMoNFH^I 

404. 


GO TO 810 

405, 

795 

IF (K9(6n 805,805,800 

406. 

80fl 

ACI, 1)*A(I, 1 )+GAHH(I-2)*T*CPG 

407, 


E(I-2)aE(I-2)7WTL*GAMF(I-2) 

408. 

805 

ER«E(I-2) 

400. 


A6ER3ABS(EP)/(eB(I-2)«t .E-20) 

410, 


EMLoAMAXI (ABER.ENU 

411. 


BdiaBdi+ER 

412, 

810 

CONTINUE 

413, 


IF (I8P2-I3PQ) 815,880,880 

414. 

815 

IVaO 

415, 


JZ«0 

416. 


ado condensed nonbase species 

417.- 


DO 840 IEaI3P3,ISPQ 

418. 


J»IE-ISP2 

410. 


jaJJCJ) 

420. 


IF (J-IS) 820,820,830 

42) . 

82fl 

DO 825 K«1 , IS 

422. 

825 

AdE,Kt2)aO. 

425. 


AdE, J + 2)a-l .0 

424. 


CO TO 840 

425. 

83o 

DO 835 Kai,IS 

426. 

835 

ACIE,K+2)=-VnU(J,K) 

427. 

84n. 

continue 

4 28.' 

C 

eliminate terms corresponding 

4 20.’ 


00 855 Kal,IS 

430. 


IF (IFC(K)) 855,855,845 

431. 

845 

DO 850 IEbISP3,I3PQ 

432. 

85o 

ACIE,K+2)aO, 

433.' 

855 

CONTINUE 

4 34. 

88o 

B(2)sEP»B(2) 

435. 


IF(KR(6)) 5979,5979,5976 

4 36.' 

5076 

ENLaABS(EP)/P*100. 

437, 


IF(MT) 5973 , 5975,5974 

438. 

5o7a 

call XINET 

4 30." 

So73 

CONTINUE 

440. 


DO 5975 IB1,I8 

441. 


iF(EBd)) 5986,5986,5985 

4 42.' 

5o85 

EB(I)bAMAX 1 {EB(I).ABS(Ed))) 

443. 


iFdTS) 5978,5977,5978 

444. 

5o77 

EE3E(I)aEm*d.-EASEi 

445.' 

. 5078 

EdiaECli-EESEm 
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B(l72i9B(l72)-EESE(I) 

«47, 

5986 

EB(I)9ABS(eB(I)) 

448. 


IF(IFC(I)-1) 5971,5971,5975 

44Q. 

5971 

ENLbAHAX1(ENL,ABS(E(I)/(EB(I)«1.E>20))) 

450. 

5975 

CONTINUE 

451, 

5979 

CONTINUE 

452. 


IF(ITS) 684,920,884 

453. 

884 

IF(MOOE-I) 910,890,885 

454, 

885 

IFCiTS.EQ.Oi GO TO 920 

455, 


IF (ABS(EH3/A(1, 1)1*0.0001) 910,910,920 

456. 

890 

IF (IFCJC) 895,900,905 

457. 

89s 

IF (JC-IRE) 900,905,900 

458.' 

905 

HODEbO 

454.' 


TMINbTTMIN 

460, 


TMAXbTTMAX 

461. 

900 

IF (ABS(B(i))-1.E-4) 910,910,920 

462. 

910 

IF (EL-l.E-4) 915,915,920 

463, 

91S 

IF (ENL-l.E-5) 935,935,920 

464, 

920 

INalSPQ 

465, 


ILbI 

466. 


IF (MODE) 925,925,930 

467. 

925 

INsiSPQ-t 

468. 


ILb2 

469. 


X(1)b0. 

470, 

930 

RETURN 

471, 

935 

ITbitS+1 

472. 


ITSb-1 

«73. 


GO TO 930 

474. 


END 
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I. 

CB?3A 




SUBROUTINE CRECT(MQE) 

5. 


integer FAM0A,FAMQB 



COMMON/INTCOM/KKR(20),KIN,KOUT 

5. 


dimension CIJ( 60,1),TF(1) 



equivalence (TU(121).TF), (VNU.CIJ) 

7. 


DIMENSION X(ia) 

fl.' 


dimension CMFF( 60) 

<». 


COMMON /BLOCOM/FAMOAt 60),FAM0B( 60), N ,FR( 60 , 15 ) , W C 3 ) , LEF ( 8) 

10, 


1,LEFS( 8),PIEASE.LEFW( 8) 

11. 


COMMON/EORCOM/H0(6O,3),RC(6O,3),RD(6O,3),REC6O,3),RFf6O.3),Rr,t6O,3 

12. 


l),TU(60,3),FF(60),FFi,lFC(60),ATAt8),ATBC8),4TCt8),WAT(fl),R4(hO,3) 

13, 


S , 

1". 


2 KAT( 8),IR( a),l3,KR(10),LAMI( 60),P,T,TKC 8, 8 ) , VN f 601. 

15. 


3 VNU( 60, 8) , ITFF.KR2,HCH,NCV,WM,WTH( 60), V( 60),VW( 60),GG( 60) 

1«>. 


a ,TQ( 8, 8),EPOVRK,SIOMA,BA3MOL 

17. 


COMMON /EQTC0M/3IP,H1P,EL,ENL,FLI0,CPF,1RE,IER, 44, IT8.IN.il, IT, 

Ifl, 


1 MOOEiHMELT,8MELT,TmaX,TMiN,mELT,SUhn,SUmu,ws,wss.B1 , ISP2, ISPO, 

19. 


2 I3P,KKJ,SVA,SV8,3VC,3VD,SUMC,FFF,CMF,EP,RV, IFC JC , wtg , wTL , JC .’ HG , 

20. 


3 CPG,TTMIN,TTM4X,L2,L3,IB( 9),EB( 8),EBL( 8) , a f 1 a , 1 a ) , 0 ( 1 a ) , 

21. 


a IP( 60),ALP( 8),FNU( 8),GAMH( 8),GAMF( 8),SL4M( B),DV( 601, RVS, 

22, 


5 CP( 60), H( 60),SB( 60),TC( 60),VLNK( 60 ) , E f 60 ) . PNUS ( 8), 

23. 


6 BC( 8),BLNK( e),BY( 8),lBC( 8),BE( B),JJ( ai 

2«. 


eouivalence(ova,ov) 

25. 


DIMENSION DYA(l,l) 

2«>. 


EQUIV4LENCE(B,X) 

27, 


CLlMaAMAXl(l.,h(2)+W(3))*o.24WTG 

2«. 


dwtl«o. 

29. 


dwtg«o. 



DUMP«P»1.E-7 

31. 


BUMP«P*l.E-4 

32. 


BULP*4L0G(6UMP) 

33. 


CMFal. 


5 

KPO 



DO 20 J«2,I3 

3h, 


IF nB(J)-l9(J-l)) 10,15,20 

37. 

10 

JA«10(J) 

3fl. 


l8(J)aIB(J-l) 

39. 


IB(J.l)aJA 

<J0. 


Kal 

Ul. 


GO TO 20 

"2.' 

15 

IB(J)al000 

«3. 

20 

CONTINUE 

aa. 


IF (K) 25,25,5 

«5, 

25 

IB(IS+I)al000 

ah. 


MalB(l) 

97 ; 


Mlai 

as; 


L»IS+2 

ao. 


IbO 

50. 


LL»1 

51. ■ 


LlMaNtKR(8) 

52. 


DO 280 IKal,LIM 

53. 


I=l6l 

50. 


IF (IK-IS) 30,30,45 

ss; 

30 

SLAMdlaO, 

5h. 


IBC(I)»IFC(I) 

57. 


PNUsCDaO, 

5fl.‘ 


IF {IFCCn-n 35,35,75 

59 ^ 

35 

DVIaX(I*2) 

60, 


IF {IFC(I)*1) 275,40,a0 

61. 

ao 

IF (IFC(D) 205,95,230 
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62.' 

45 

IF (IFCdifl) 75.50,50 

‘•Sii 

50 

IF {IFCdii 70,55,85 

‘•“<1 

55 

VA«Ed)-TCd)*X(n 

65' 


DO 65 Jalfp 

6 #i. 


IF dBC(J)) 60.60.65 

67. 

60 

VAaVA«VNUd, J)*X(Jo2) 

6R, 

65 

CONTINUE 



OYIaVA 

70. 


GO TO 95 

fu 

70 

IF (IK-IRE) 75,80,75 

72. 

75 

OYIoO, 

73. 


GO TO 275 


80 

IFCdial 

75. 


OYIoXCIER) 

76. 


GO TO 230 

77. 

85 

L«L*1 

7fl^ 


IF (L-IER) 90,85,90 

79 ; 

90 

DYIbX(L) 

80, 


GO TO 230 

81. 

95 

0WTG«0NTC + VNd)*0YI*HTMd j 

82.' 


IF dPdi) 100,195, 100 

83, 

lOn 

IF dX-M) 105,145,105 

8 a. 

105 

IF (VNd)-OUHP) 110,140,140 

85. 

llo 

IF (MOE) 195,195,115 

86 . 

115 

IF (OYI) 120,275,125 

67. 

120 

IF (VN(n/0UHP-,9999995-CMF*OYn 275,275 

68 . 

125 

IF (8UMP/VNdi-l.-CMF*0Yl) 135,275,275 

89. 

13o 

CNF«(VN (I) /BUMP-, 9999995) /OYI 

90. 


GO TO 275 

91. 

135 

CMF«(0UMP/VN(n-l,)/OYI 

92, 


GO TO 275 

93 . 

l«fl 

IF (MOE) 175,175,150 

9a. 

145 

Mi*Mm 

’5, 


M«IB(M1) 

96. 

150 

IF (OYI) 155,275,160 

97 , 

IS 5 

IF (0YI«CMP+.999) 165,275,275 

98, 

16n 

IF (0yI*CmF-9.) 275,275,170 

99, 

165 

CMF8-.999/0YI 

too. 


GO TO 275 

101. 

17o 

CMF«9./DYI 

102. 


GO TO 275 

103, 

175 

IF (OYI*CMF-2,303) 180,190,190 

loa. 

160 

IF (OYI*CMF+6.909) 185,275,275 

105.' 

165 

CMFB-6.909/OYI 

106. 


GO TO 275 

107. 

19fl 

CHFb2.303/OYI 

108. 


GO TO 275 

109. 

195 

IF (Y(I)-BULP*A0S(OYI)*CMF) 275,200,200 

no. 

20o 

CMFB-(Yd)-BULP)/A03(DYI) 

Ill 


GO TO 275 

112 , 

C 

NON-PRESENT BASE 

113. 

205 

IF (KR(6)) 215,210,210 

lia.- 

210 

IF (T-TF(I)+.001) 275,215,215 

115. 

215 

IF (Y(inCMF*OYI-0.1) 275,220,220 

116. 

220 

DUMlB(.l-Y(I))/OYl 

117, 


IF (DUMl-,001) 275,275,225 

118. 

225 

CMFbOUMi 

119, 


GO TO 275 

120. 

230 

OWTL»OWTLfDYI*WTM(I) 

121. 


IF (OYI) 235,275,250 

122, 

235 

IF (VN(li) 250,250,240 

123. 

240 

IF (VN(I)+OYl*CMF) 245,250,250 

12 a. 

245 

CMFb-VN(I)/OYI*1. 00001 

125.' 

25o 

IF (KR(6)) 265,255,255 
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I2fc. 

25s 

CLIPoA8S(CLIH/HTM(in 

12T. 


IF (ABS(CMF*DYn-CLIP) 275.275,260 

I2n. 

264 

C«F8CLIP/48SfOVn 

120. 


CO TO 275 

1 Jf>. 

268 

IF (ABS{CHF*OYn-P) 275,275,270 

131. 

. 27o 

CHFiP/ABS(DYn 

132, 

27s 

CMFF(I)bCMF 

133. 

28(1 

OY(IK)«r>YI 

13«, 


IF (KR(6)) 200,285,265 

135. 

2Ss 

RVL»AMAYl(.l,RV/2.) 

13<>. 


CMFaAHINl (CMF, 1^70/483 (AB3(0WTL-DWT6/WTC*4TL)/RVL-0wTGn 

137. 

200 

IF (KR(7)-n 315,315,300 

13fl. 

20s 

FORMAT (lX2(8X2HVN0)(iHYeX2H0y7x5HsCALE7YlHE4)r<,HIFC I P ) / fl XA4 . 5E 1 0 . 

130^ 


13,I3,I2,1X,A4,5E10.3,I3,I2>) 

l«n. 

30n 

NQ»l 

l«l. 


WRITE (KaUT,205) CFAMOA(Jj,VKi(J),Y(J),OYA(J,LL).CMFFt Ji .FtJi , IFCtJ 

142. 


n,IP(J),Jsl,NQ1 

143. 


WRITE (KOUT,3tO) <EB (I ) , lal , IS) 

144. 


WPITE (K0UT,310i ( X ( I ) , I s i , IsPQ) 

145.' 


WRITE (KOUT,30S) ( 18 ( I ) , la 1 , I3) 

146. 

305 

FORMAT (1015) . 

147. 

3tn 

FORMAT (8E12.4) 

14S. 

315 

CONTINUE 

140. 


IF (X(l)) 320,360.320 

ISO. 

320 

Xl«X(l )*CMF 

151.' 


a3X»ABS(X(1)) 

152. 


IF (AB3(Xl)-.5) 330,330,325 

153, 

32s 

C”Fb,5/ABX 

154. 


XlsCMF*X(l) 

155. 

530 

IF (Xn 340,360,335 

15<>. 

33s 

TMBTMAX 

157. 


XUAMINI (,2,X1) 

ISfl. 


GO TO 345 

150. 

340 

TMaTMlN 

160. 


XlSAMAXl (-0,2,xn 

161, 

345 

DTMb(TM-T)/(TM*X1) 

162. 


IF (OTM-l.j 350,355,153 

163. 

350 

CHFbOTM*CMF 

164, 


TsTM 

165. 


GO TO 360 

16h. 

355 

TbT/(1.-X1) 

167. 

360 

AA»AA*EXP(CMF*X(2)) 

168. 


Ml«l 

160. 


Msisn ) 

170. 


WTL,»0 , 

171. 


WTGsO, 

172. 


0UM2*0, 

173.‘ 


I«1 

174; 


LIMbKR(8)+N 

175, 


00 405 IKal,LIM 

176. 


DYIaCMF.OYCIK j 

177. 


IF (OYI) 395,300,305 

178, 

30o 

IF (IFCnj) 405,435,485 

170. 

50s 

IF (IFCnn 455,400,480 

180. 

40o 

IF (IP(I)) 405,430,405 

161 . 

405 

IF (M-lK) 410,415.410 

182. 

410 

IF (MOE) 430,430,420 

183. 

41S 

MlaMltl 

164. 


MBIB(MI) 

185. 

420 

VN(naVN(I)*(l,*OYn 

186, 


IF (VN(D) 430,430,425 

187. 

425 

YdiaALOCtVNd)) 

188, 


GO TO 435 

180. 

430 

Y(I)*Y(I)*DYI 


4-121 



S23A, CRECT 


19(1, 


VN(zi»EXP(Y(I)) 

191. 

435 

VAaWTM(I)*VN(n 

192. 


WTG«WT07VA 

193. 


0UM2»DUM2+VA/FF(I) 

194^ 


IF (IK-lS) 440(440,445 

195. 

44n 

PNUS(I)«VN(n 

19fc. 


SLAM(n«VN(I)/FF(n 

197, 


CO TO 495 

198. 

445 

00 450 K»1,I8 

199. 


VAaVNU(I,K)*VN(n 

20ft. 


PNUS(K)bPNUS(K)+VA 

201 . 

45o 

SLAM(Kj»8LAM(K)*VA/FF(n 

202, 


GO TO 495 

203. 

C 

NON-PRESENT BASE CORRECTIONS AND TESTS 

20U, 

455 

Y(li»Y(n+0YI 

205. 


IF (Y(I)j 495,4b0.4b0 

20b. 

4bo 

IF (IFCai + l) 495,4b5,4b5 

207.' 

4b5 

IF CK9{6)i 475,470,470 

208. 

47() 

IF (T-TFdi + .OOl) 495,475,475 

209.' 

475 

YdiaO. 

21ft. 


IFCdia + l 

211. 


GO TO 495 

212. 

48n 

VN(n»VN(n+DYI 

213; 


IF (VNtin 490,490,485 

214. 

485 

WTl»WTL+VN(I)*WTM(I) 

215. 


GO TO 495 

21b, 

49o 

VNdiaO. 

217, 


iFCdls-l 

218. 

495 

I«IT1 

219. 


FFFaWTG/DUM2 

220, 


DO 500 I»l,IS 

221. 

500 

8LAMma8LAMd)*FFF 

222. 


RETURN 

223. 


END 
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1. 

2 , 

5 . 

a. 

S 

h. 

7. 

«.■ 

0. 

10 . 

11 . 

12 .' 

13 . 

1«. 

‘5,’ 

16 . 

17. 

Ifi. 

!<’. 

20. 

21 . 

22. 

23. 


CT3 • 
26 ., 
27 . 
2fl. 
20. 

30. 

31 . 

32 . 
13 . 

34 . 

35. 

36 . 


JO. 

lo.' 

40. 

41. 

42. 
“3, 

4U. 

45, 

46, 

47, 
45. 
44. 
50. 

5i; 

52 . 

S3; 

54. 

55. 

56. 

57. 
SB. 
54.' 
60. 
61. 


CB?a* 

subroutine INPUTtPP) 
integer FAM0a,FAMO8, char. blank 
integer AMOA. ANna.AMOC.ATA.ATB.ATC 
integer Z1/1H0/.Z2/2H00/ 

integer BL/IH /.G/1HG/.L1/1HL/.S/1H3/.ELECT/1HE/ 
COMMON/lNTCOM/KKR(20i,KlN,KOUT 

dimension CIJ(60.1),TF(n,Jt(«),Al(4).TJ(3i,ISN(5) 
E0UIVALENCE(TUa2O,TF),(VNU,CIJ).(I3N(n,AM0Ai. ( I 8 n ( 2 i , aMOB i , 
in3N(5i,ANQC) 

COHMON/EQTCOM/UM(aj0i,KPHA(2),IM(8),JATC5),ALPTC5).CfBi, 

1 TAU( 8, ai.ICI 81,LIM( 8, 8) , FF IN { 1 20 1 , NFl A (1 20 ) , NF 18 f 1 20 ) , 

2 IFMET( 60), IGMET(, 60).Z1gEPS(2).30RCE{8) 

common /BLOCOM/FAHOAI 60),FAM08( 60), N ,FR( 60 , 1 5 ) , w n ) , LEF ( 8i 
I.LEF3C 8),P1EA3E,LEFW( 8) 

COMHON/EOPCOM/RB(60, J),RC(60,3),RD(60,3) ,RE(60,3i,RFf60,3).RG(60,3 
1),TU(60,3),FF(60) ,FFA, IFC(60),ATA(B),ATB(8), ATC(B),WATt8),»A(60,l) 
i. 

2 KAT( 8),IR( 8),lS,KRnO),LAMI( 60),P,T,TK( 8, 8),VNt 6oi, 

3 VNU( 60, 8) , ITFF,KR2,HCH,NCV,WM,WTM( 60), TC 60),VW( BOi.GGC 60) 

4 ,TQ( 8, 6),EP0VRK,SIGMA,BASM0L 

COMMON/KINCOM/MT.FkF ( 10),EAK(10),EXK 1 10) ,PMUf 8, 1 0) .RMU( 8,10), 

1 OKPT(IO) ,PKP(10) ,PKR<10),RAT(lO),RSIGCl0),MAno),LL(lO) ,PMRcio) , 

2 PRMU( 6,10),EESE( S) 

3nt FORMAT (I3,F7.Q,7 FIo.«) 

102 F0RMAT(5E15.8, 15) 

3o20 FORMAT! tX6El2.5,F lo.a.Fl 1.4, I2/1X6 Ei2.5,Fio.«.F1 1 .4,12) 

3rt2l FORMAT(2Aa,£l2.4,2Aa,El2.4,2Aa,£i2.4,20X) 

103 FORMAT(ih /IH /IH ) 

loa FORMaT(IX,a2.3A4,8F7.3) 

105 FORMAT(54HORELATIV£ elemental compositions, atomic WTS/UNIT mass 
l/6X6H3YMBOL,3X7HELEMENTaX4HATOMIC WT5X8HE0CE GASaXlOHPVRO.GAS 15X 
2 6HCHAR ISXIOHPVRO.GAS 25X6HCHAR 25X10HPYRO.GAS 55X6HCHAR 3/ 
3(8XA2,3X3Aa,Fl0,S,7Fl3.7)) 

106 FORMAT(15,3F10.5, 15) 

data CHAR.BLANK/aHCHAR.aH / 

Pspp 

KR(3)»2 

KR(2)«KKR(12)+1 

IF(KR(2).EQ.3,0R.KR(2).EQ.8) KR(3)«6 
IF (KR{2) ,E0,7) GO TO 3751 
5n62 MTso 

FFAoO.aSR 

FITM0L»26,7 

FITGMW»2a,3 

GGA » o.asa 

8A3MOLB32.0 

3IGMA=3,a67 

EP0VRK»106.7 

NFFoO 

VlNTsP*! ,E-6 
YINTbALOG(VINT) 

RMMGal , 

IF (KR(2)) 33a, 33 a, 321 
C READ CROUP 11 DATA 

I2l REAotKIN, 301)13, FFAR,oUB2,OUB3,OU0a,oU85,OU08 
0UB6B0.0 
OUBTaO.O 

IF (DUB2,GT,0,) FITM0L»0UB2 
IF (DUB3.GT.0.) BAS«0L»0U83 
IF (OUBa.GT.O.) SICMAaDUBa 
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62. 


IF (DUBS.CT.O.) EPQVRK«DUa5 

63. 


IF (DUB6.GT.0,) GGA aOUBb 

64.. 


IF (0U87.CT.0,) FITGMWaOUs? 

65. 


IF(FFAR) 3213,3212,3211 

6b. 

3?13 

FFAaO. 

67. 


GO TO 3212 

6S, 

3211 

FFAaFFAR 

66. 

3212 

CONTINUE 

70, 


jATCSlaO 

71. 


IXa3 

72. 


IF (IS-10) 311,311,369 

73, 

C 

elemental data 

74. 

311 

READ(KIN,304) (KATU5, *TA(J), ATB(J), ATCtJl, WATtJ), (TK(J,I), 

75. 


1 l8l,7),Jal.lS) 

76. 


DO 327 KBi,7 

77. 


VAro. 

7S. 


DO 322 J«1,IS 

76. 


IF(KAT(J),EQ.ELECT)G0 to 325 

80. 


lF(TK(J,K)i 324,322,325 

81, 

324 

VAaVA-TK(J,K) 

82. 


TK(J,K)3-TK(J,K5/i4AT(J) 

83. 


GO TO 322 

84, 

325 

VAaVA+TK(J,K)«WAT(Ji 

85. 

522 

continue 

86. 


IF(VA) 326,327,32b 

87. 

326 

DO 323 J81,IS 

ae. 

323 

TK(J,K5aTK(J,K)/VA 

S”, 

327 

CONTINUE 

90. 


WRITE(KOUT,305) (KAT(J), aTA(J), ATB(J), ATCtJ), WATCJ), (TK(J,I), 

91. 


1 I«l,7),Jal,IS) 

92, 


iFtOUae.GT.O.Oll '^RITE<KOuT,3081) dubs 

93. 

S08l 

F0RMAT(/3X,34HA8LATI0N CAN OCCUR FOR TEMP, G.’T. ,F10,4,6H OEG K) 

64, 


WRITE (KOUT,308) 

95. 

3o8 

F0RMAT(//3X61HTHERM0DYNAMIC property curve-fit data (SEE MANUAL FQ 

96. 


IR FORMAT)//) 

«7, 


ISPbIS+J 

98. 


IF(KR(5)) 366,366,334 

96, 

334 

TFMaXbO, 

100. 


AAAbO, 

101. 


NBO 

102. 


IlBiSP 

103, 


J«1 

104. 


iClsl 

105, 


NFFbO 

106. 

342 

READ(KIN,306)NFFS,(TJ(I),I«1,3), ITEMP 

107. 


IF(NFFS.EQ.O) go TO 344 

loa. 


NFFaNFFS 

106. 

C 

READ DIFFUSION DATA, CROUP 12 

lin.‘ 


REAOC<1N,3021) (NFIA(I),NFIB(I),FFIN(I), Ib1,Nff) 

ni,‘ 


GO TO 342 

112. 

C 

HEAD THERMOCHEM. DATA 

113. 

344 

rEAD(KIN,4001)(ISNC1),I«1,5),{JAT(K),ALPT(k),Kb1,4),JP,spL.SPU,IC1 

114.' 

4(501 

FORmAT{3A4,6x,2A3.4(A2,F3.'0),A1,2F10.3, 14X,I1 ) 

115. 


iF(JATn).EQ.BL) GO TO 366 

116. 


IF(IC1.EQ.1)G0 TO 4003 

117, 

4002 

WRITE(KOUT,4202) n3N(l),Ial,3) 

118. 

4302 

FORMATC THERMOCMEMIcAL Data card out of order ',3A45 

116; 


STOP 

120. 

4o03 

IF(KPHA(i).EQ.1. OR.jp, EG. G)G0 TO 4201 

121, 


DO 4103 Ial,4 

122, 


iFCjATCn.NE.JlCn) GO TO 4201 

123. 


iF(ALPTm-AKI)) 4201,4103,4201 

124.' 

4?03 

CONTINUE 

125. 


GO TO 4004 
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12h. 

4?01 

00 aio? i8i,u 

12’. 


jin)«jAT(n 

12fl, 

4iO? 

41 (I)»AUPT(I) 

12'’. 


00 345 K»1,1S 

130, 

345 

C(Ki«0. . 

13J . 


DO 346 lBl.,a 

13?. 


IF(JAT(n.EQ. 0 L 1 GO TO 386 

133, 


IF(JAT(n.EQ.Z1.0R.JATm.EQ.Z2) GO TO 346 

I3U. 

346 

00 347 Kal.IS 

13S. 


KTbK 

I3h. 


IF( JAT(I) ,E0.K4T(K) ) GO To 3<I0 

137. 

^47 

CONTINUE 

I3fl. 

C 

REJECT SPECIES OATA CAROS FOR NON PRESENT 

13<’.‘ 


REAO(KIN,303) 

tan; 


IF(lTEMP,E0,l,AND.JP.EQ.GjREAO(KIN,3031) 

lai. 

3031 

FORMATCIH ,/1H ) 

la?. 


GO TO 344 

ia.3. 

348 

CCKTlBALPTCn 

lua. 

346 

CONTINUE 

ia5. 


WTsO. 

146. 


L“1 

1«7. 


LAMKKsO 

laa. 


00 388 iBt.IS 

lao; 


iF(Cm) 387,388,387 

ISO, 

387 

LAMKKaLAMKKtL 

151. 


i<TaWT4C(I) 6 WAT(I) 

15?. 

388 

L*L + L 

153. 


IF(J-IS) 360,360,366 

iSa, 

360 

jMaJ.t 

155. 


00 3601 UBl,I3 

156. 

3601 

C1J(L,J)bC(L) 

157. 


lami(j) b lamkk 

isa. 


IF (JM) 320,320,313 

iso; 

313 

DO 314 L«1,JM 

160. 


IHLalM(L) 

161 . 


UGHsCCIML) 

16?, 


UMCl,J)bO. 

163. 


IF(UGH) 353,314,353 

164. 

353 

00 363 Ial,L 

16S. 

3‘’3 

UN(I, JJaUMd, J)-UM(I,L)*Ur.H 

166, 


00 364 IsimL,I3 

167. 

36 a 

Ctl5acm-TAU(I,L1*UGH 

168, 

314 

UM(J,L)aO, 

166. 

520 

00 316 IBI, IS 

170. 


1F(A8S (CCI))-, 001)316, 316, 517 

171, 

316 

TAUCI, J)aO. 

17?. 


00 366 Iai,JM 

173. 

366 

VNU(II,l)a-UMU,J) 

174. 


00 367 IBJ,I3 

175. 

367 

VNU(II,I)aO, 

176. 


LAMKIDbLAMKK 

177, 


GO TO 570 

178. 

317 

IM(J)8I 

176. 


UM(J,J)b1. 

180,' 


00 396 LB1,J 

181. 

368 

UM(L,J)bUM(L, J)/C(I) 

18?. 


DO 328 LBl,!S 

183, 

328 

TAUa,J)aC(U/C(I) 

184. 


YCaVINT 

185.' 


KKsJ 

186, 


JBJ+ 1 

187. 


lR(l)a-l 

188. 


IF (IS.EO.t) GO TO 414 

1 06. 


IF(J-IS) 372,372,326 
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190.' 


329 

DO 330 L« 2 .is 


191, 



jMsiSP-L 


19?. 



IMJbIM(JM+1) 


103. 



DO 330 K«1,JH 


19U. 



UGH>TAU(IMJ,K) 


195, 



DO 330 IB1»IS 


19fc. 


330 


JM+1) 

197. 



DO 333 191, IS 


198, 


337 

iMiBiMd j 


199. 



336»333«336 


200. 


336 

DO '338 Kb1,IS 


201, 



V«UM(K, IMI) 


202. 



UM(K, 1MI)bUN(K,1) 


203. 


338 

UH(K,1)iV 


20a, 



IM(1 


205. 



IM(IMI)b1MI 


208. 



GO TO 337 


207. 


333 

CONTINUE 


208. 

C 


•element -- BASE GAS CORRESPONDENCE 

209. 

C 


INITIALIZE ROW AND COLUMN 

SUMS 

210. 



IG«IS 


211. 



DO 401 IBI.IS 


212, 



lR(I)a-l 


215, 


401 

ICCllB-l 


214. 

C 


EVALUATE INITIAL SUMS 


215. 



LAMDBl 


218. 



DO 402 IBI.IS 


217, 



DO 403 JBI.IS 


218, 



LIM(I, J)bMOD(LAMI(J)/LAMO 

,2) 

219: 



IC(J) a IC(J) ♦ LIM(I.J) 


220. 


403 

IR(I)B IR(I) ♦ LIMCI.J) 


221. 


402 

LAMObLAMO+LAMD 


222. 

C 


check for zeros 


223, 


426 

iZaO 


224. 


404 

DO 412 IB1,IS 


225, 



iF(ICCn-IZ) 408,405,408 


226. 


405 

DO 406 Jsl,lS 


227, 



IF(LIM(J,D) 407,406,407 


228. 


406 

CONTINUE 


229, 


407 

ICCIJB-J 


230 



IR(J)8-I 


231, 



DO 428 Kb1,IS 


232. 



LlM(J, I )b0 


233. 



lF(LIMCJ,Kn 425,427,425 


234, 


425 

IC(K)aIC(K)-l 


235. 



LIM(J,K)sO 


236. 


427 

IF(LIM(K,I)J 422,428,422 


23T, 


422 

LIM(K,ljao 


238, 



IR(K)bIrCK j-1 


239. 


428 

CONTINUE 


240, 



GO TO 413 


241. 


408 

iF(IRCn-IZ) 412,409,412 


242. 


409 

DO 410 JaiflS 


243.' 



lF(LIH(I,Jn 411,410,411 


244, 


411 

IC(J)B-I 


245. 



1R(1)8-J 


246. 



LIM(I,J)bO 


247, 



GO TO 4101 


248. 


410 

CONTINUE 


249, 

4101 

DO 430 Kb1,IS 


250. 



IF(LIH(K, J j )424,429,424 


251. 


424 

lR(K)aIR(KJ-l 


252, 



LIM(K,J)bO 


253. 


429 

lF(LlM(I,K)j 423,430,423 
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254^ 

423 

LlMCl.KXO 

255. 


IC(K)«IC(K)-1 

25(S. 

430 

CONTINUE 

257. 


GO TO 413 

2SB,’ 

412 

CONTINUE 

25P, 


12»IZ7l 

260. 


GO TO 404 

261, 

413 

iGsIG-l 

262, 


JBIS+I 

263. 


IF(IG) 414.414,426 

264, 

414 

FAMOAdSiaAMaA 

265. 


FAMOSnsiaAMOB 

266. 


DO 416 IBI.IS 

267. 


Kb-IR(I) 

26S, 


ICCIJbFAMOACK j 

269.' 

416 

lM(r)BFAHOB(K) 

270. 

41 7 

F0RMAT(///5X9HELEMENT .18A4) 

271. 

418 

FORMAT! SX9HBASE 3P 6(4x2A4)i 

z7?.; 


GO TO 372 

273, 

369 

DO 361 LBl.IS 

274. 


VNU(II,L)«0, 

275.' 


DO 361 iBl.IS 

276^ 

361 

VNU(Il,L)BVNU(II,L)+C(n*UM(L.li 

277. 


LAMinnaUAMKK 

27fl. 

370 

KKall 

279. 


IIaII+1 

280,’ 


YCa 0, 

281, 

372 

Klai 

282, 


K2b2 

283, 

C 

TEST FOR PHASE. SET PHASE VARIABLE 

284, 


1F(JP.NE, G ) go TO 4005 

285. 


KPHACDal 

286.' 


KPHA(2)al 

287.’ 


IFCITEMP.EU.OIGO to 373 

288. 


K2a3 

289, 


K1b2 

2P0. 


KZal 

2’1.‘ 


TU(KK,l)BTj(n 

292. 


TU{KK.2)8TJ(2) 

2P3. 


TUtKK,3)B3PU 

294. 


GO TO 4006 

295. 

373 

TUCKK, 1 )aTJ(2j 

296. 


TU(KK,2)tSPU 

297. 


GO TO 4006 

298. 

4005 

IFCJP.NE, S) GO TO 4007 

299.' 


KPHAd )b2 

300. 


KPHA(2)a2 

30 1: 


GO TO 4008 

302. 

4o07 

KPHA(l)a3 

303, 


KPHA(2)a3 

304. 

4n08 

IF(SPU-TJ(2))4009,4010,4010 

305, 

4(i09 

TUIKK.l jaspu 

306. 


TU(KK,2)bTJ(2) 

307. 


CO TO 4006 

308. 

40t0 

TU(KK,1 jaTJ(2) 

309^ 


TU(KK,2)b3PU 

310. 


GO TO 4006 ■ 

311, 

4o04 

K2b3 

312. 


Kla2 

313.’ 


IFCJP.EQ. LnKPHA(2)a3 

314, 


IF(JP.EO. 3)KPHA(2)b2 

315. 


rF(SPU-TJ(2h«012.40l3.40l3 

316. 

4012 

Tll(KK,l)a-TU(KK,l) 

317. 


,TU(KK.2)b3PU 



SET TEMP.’ limits 
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318. 

319. 

320. 
321 • 

322, 

323. 
32 «: 

325 , 

326. 

327, 

328. 
320 . 

330. 

331. ' 

332. 

333. 

334. 

355 ,' 

336. 

337. 

338. 

339. 

340. 

341. 
342^ 

343. 

344, 

345. 

346, 
347^ 
34 8.' 

349 . 

350. 

351. 
382. 

353, 

354, 

355, 

356, 

357, 

358, 

359, 

360, 

361, 

362, 

363, ' 

364, 

365, 

366, 

367, 

368, 

369, 

370, 

371, 

372, 

373, 

374, 

375, 
378. 

377. ' 

378. ' 

379. 

380 . 
381. 


GO TO 4011 

4013 IP(SPL-TJ(2))4014#4015,4015 

4014 TCKKK, 1 )»-TIKKK, 1 ) 

TU(KK,2)bTJ(2) 

GO TO 4011 

4015 TU(KK,2)b-TU(KK,2) 

read (KIN. 3022) RA (KK. K2) , rS (KK. K2 ) . PC (KK, K2) , RO (KK. K2) . RE (KK ,K2) , 
1IC2,RFCKK,K2),RG(KK,k2).Ic 3,IC4 
3o22 FORHAT(5E15.6,I5,/,3E15.8,30X,I5,/,79X,I1) 

JP«G 

NEWbI 

lP(IC2.NE.2.0R.lC3,NE.3.0R.lC4.Ne.4)G0 TO 4002 
GO TO 4016 
4011 JP« G 
NEWbI 

4006 READ(KrN,302)RA(KK,K2).RB(KK,K2),RC(KK,K2),RD(KK,K2),REfKK,K2), IC2 
IPCIC2.NE.2)G0 TO 4002 

READ(KIN.302)RP(KK.K2).RG(KK,K2) ,RA(KK,K1 ) .R8(KK,K1) ,RC(KK.K1 ) , ICS 
.IF(IC3,NE,3)G0 TO 4002 

READ(KIN,302)RD(KK,K1).RE(KK.K1).RF(KK,K1 ) .RG(KK.Kl) ,R0UH,IC4 
IP(IC4.NE,4)G0 TO 4002 
IFCITEMP.EO.O) go TO 4016 
iF(KPHAn).NE.l) GO TO 40l6 

READ(KIN,302)RA(KK,KZ)»RB(KI<,KZ).RC(KK,KZ),RO(kk,KZ),RE(kk,KZ),IC5 

READCKIN,302)RF(KK,KZ).RG(KK,KZ) 

IF(IC5.NE.5)G0 TO 4002 

4016 CONTINUE 

C SET UP SPECIES FAIL TEMPERATURES TF(KK) 

IF(KPHA(2),NE,3) TF(KK)bSpU 
IF(nEW.NE.1)GO to 3737 
GO TO 3721 

3-»37 IF (KPHA(l)-KPHA (21 )3733, 3736, 3734 

3733 IF (KPHA(1)+KPHA (21-5)3734, 3728, 3734 

3734 WRITe(KOUT,3735) AM0A,AM0B 

3t35 F0RMAT(////25H BaO PHASE NUMBERING FOR 2A4) 

STOP 

3736 IF(KPHA(1)-1) 3734,3727,3728. 

3728 FF(KK) b 1,E*10 
GG(KK) b I.E+IO 
GO TO 3729 

3727 FF (KK)a(WT/FlTHOL) **FFA 
IFMET(KK)b2 
GG(KK) B -1, 

3729 IF(nFF) 3726,3449,3730 

3730 DO 3723 Iai,NFF 
IF(NFIA(I)-AmoA) 3723,5724.3723 

3724 IF(NFI8(I)-AM0B) 3723,3720,3723 
3720 IF(FFIN(I)-100.) 3725,3731,3731 

3725 IF (FFIN(I)) 3480,3480,3481 

3480 GG(KK) a -FFIN(I) 

IGMET(KK)b1 

GO TO 3723 

3481 FF(KK) 8 FFIN(I) 

IFMET(KK)b1 

GO TO 3723 

3731 TF(KK)bFFIN(1) 

3723 CONTINUE 

IF (GC(KK)) 3449,3449,3455 

C ZiGEPSaO, can BE INPUT AND USED IN METHOD 3, Z I GEPS (1 ) b 3 IGM A fl ) 

C ZIGEPS(2)bEP3(I) .NO PRESENT • METHOD FOR INPUT.' 

3449 IF (ZIGEPS(l)-lOO,) 3453,3452,3452 
3453 IF (ZIGEPS(l)) 3452,3452,3441 
3441 IF (ZIGEPS(2)) 3452,3452,3443 

3443 GG(KK) a Z ICEP8 ( 1 1 /S IGMA * ( Z IGEPS (2 ) /EPOVRK ) ** . 0795 * 
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382 :■ 
383 , 

38a. 

385. 


3a52 


386, 

3456 

387. 


38B, 

3457 

389. 


390, 

3455 

391. 

3726 

392. 

3821 

395. 

3721 

394, 


395, 


396. 


397, 


398. 


399. 


400. 

3o61 

401. 

3722 

402. 


403, 


404, 


405. 


406 

364 

407. 


408, 


409, 


410, 

371 

«ll. 


412, 

362 

413. 


414. 


415, 


416. 

399 

417, 


418. 

SflOl 

419, 

no 

420, 


421, 


422. 


423. 


424 ■ 


425. 


426. 

111 

427. 


428, 


429, 


430, 


431. 


432, 


433. 

i 12 

434.' 


435. 


436, 


437. 

ll3 

458. 


439. 


440. 

4i9 

441. 


442. 



aas. 

aaa.' 

uas." 


1 (WT/BASN0L)**,25 

IGMET(KK)b3 
GO TO 3455 

IF (KPHA(l)-n3a58i3U57,3a56 
GG(KK) » I.E+IO 
GO TO 3455 

GG(KK) s (WT/FIT6MWj**GGA 

IGMET(KK)b2 

CONTINUE 

IF(kP{3)-6) 3722,3721,3722 

FORMAT(iX,3Aa,5X,2A3,a(A2,F3,0),Al,2F10.3, lUX.Ili 
WRITE(KOUT,382li (I3N(K),K,1,5), (JAT(K).ALPT(Kj,KBl,ui,JP,SPL.SPU 
l.ICl 

WRITE (KOUT, 3061) ( TU(KK,K) ,RA (KK. K ) , RB (KK , K ) , RC f KR . K ) , RD<KK , K ) , 
1RE(KK,K),RF(KK,K),RG(KK,K), Kb1,3) 

IF(NEW,NE,l)GO TO 3722 

NEWbO 

GO TO 344 

FORMAT(F10.2,7E17,8) 

FAMOAIkK )baMOA 
FAMOBCKKIbAMQB 
WTM(KK)bWT 
N»N+1 

IF(kPHA(1)-1)3734,362,364 

1FC(KK)b-1 6 

VN(KK)bO, 

Y(KK)bVC 

IF(TP(KK)-TFMAX)344,344,3t1 

TFMAX»TF(KK) 

GO TO 344 
1FC(KK)bO 
VN(KK)iVINT 
T(KK)bYINT 
GO TO 344 

WRITE (KOUT, 417) ( ATA C I ) , aT8 ( I ) , ATC ( I ) , I» 1 , 1 S) 

WRITE (KOUT, 418) ( IC ( I ) , lM( I) , l»l , 13) 

WRITE (KOUT, 110) 3 IOM4 , EPQVRK , 8 ASMOL 

FORMaT(/// 3X30HMOI.ECULAR TRANSPORT PROPERTIE3/5X75HVISCOSITY ..... 
1 BUODENBERC - WILKE MIXTURE FORMULA WITH MUCI) CALCULiTER DN/21X34 
2HTHE BASIS OF 0(1. I) b DB aR/G ( I ) **2//5X80HTHERM 4L CONDUCTIVITY ... 
3.. mason - SAXENA MIXTURE FORMULA WITH EUCKEn CORRECT10N//5X73HOiF 
4FUSION coefficients ..... 0(1, J) b OBAR / (F ( I ) *F ( J) ) WITH DBAR BASE 
5D ON/21X8H8IGMA s ,F8.4,1iH, EPOVRK b ,F9,4,13W, AND MRfp 8 ,>8.4^ 
write (KOUT, 111) FITM0L,FFA,FITGMW,GGA 

F0RMAT(//7X16HMETH003 EMPlOYEO//8X63HO CONDENSED PHASE, VALUES FOR 
1 F(I) and G(I) set equal to 1.E*10//8X42h 1 VALUES FOR Ffl) (OR G(I 
2)) INPUT 0IRECTLY//8X71H2 VALUES FOR F(I) (OR G(I)) CALCULATED BY 
3 F(I) 8(M(I)/FITM0L)**FFA AN0/10X65HG(I) b ( h ( I) /F I TGMW ) * *GG A WHER 
4E M(I) IS SPECIES molecular WEIGHT, /lOX,9HFlTMr)L b ,F 8.a,12 H,' AND 
SFFA b ,F6.4,11H, FITgMW b F8.4,12H, AND GGA b ,F6.4) 

WRITE(KOUT, 112) 

F0RMAT(//7X73H3PECIE3 F(I) METHOD G(I) METHOD SPFCIES F( 

*1) method g(I) method) 

WRITE (KOUT, 1 13) ( (FAMOA(Kk),FAMOB(KK),FF(KK) . IFMET(KK) ,gc(KR) , IGME 
1T(KK)),KKb1,N) 

F0RMAT(7X,2A4,1X,F5.3,3X,I1,3X,F5.3,3X, II, 10X.2A4, tX.F5.3.3X. It ,3X 
1,F5.3,3X,I1) 

WRITE (KOUT, 419) 

FORMAT (//3X61HSTAGNATION SOLUTION FOLLOWED BY BOUNDARY-LAYER EDGE 
I EXPANSION/) 

DO 375 L»1,7 
DO 375 181,13 
TO(I,L)aO. 

DO 375 KBl, IS 
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446. 

447. ' 

448 . ' 
4 46 . 

450, 

451, 
45?. 

453, 

454. 

455, 

456. 
457 ^ 

458. 

459. ' 

460. 

461. 
46?. 

463. 

464. ' 

465. 

466. 

467. 

468. ' 
466, 
470. 
471 ■ 

472. 

473. ' 

474. 

475. 

476. 

477. 

478. 
476. 

480. 

481. 

482. 

483. 

484. 

485. 

486. 

487 . 

488. 
486, 

460, 

461. 
46?. 

463. 

464. 

465. 

466. 

467. 

468. 


375 TO(I,LjBTQ(I,Li+UM(i,K)*TK(K,U 
lF(KR(2j-5i 3752,3752,3751 

3751 CONTINUE 

^40 FORMAT(8F10,6) 

?45 format (213) 

?50 FORHAT(3E10,4) 

C READ surface KINETIC DATA, GROUP 14 

?55 REA0(KIN,245)MT 

IF(MT) 3752,3752,256 
?56 00 260 H«1,MT 

REAO(KlN,2SO)FKF(Mi,EAK(Mj,EXK(M) 

REAO(KIN,240) (RMU(I,H),I«1,I3). 

?60 rEAO(KIN, 240) (PMUn,H),l61,IS) 

265 format (//3X,7HKINETIC) 

270 format (3X, 1 IHREACTION—, 17,6110) 

?75 FORMAT (/3X,8HREACTAnT) 

280 format (5X, 12HC0EFFICIENTS/) 

285 FORMAT (8X,2A4,F8.2,6F10,2) 

260 format (/3X,7HPROOUCT) 

265 FORMAT C/3X, 12HPRE-EXPONENT) 

200 format (5X,6HPACTOR,4X,10e10.3) 

205 FORMAT ( /3X , 1 OH AC T1 V ATION j 
210 FORMAT (5 x,6HENERGY,4X, 10E10.3) 

215 FORMAT (/3X,8HREACTI0N) 

220 FORMAT (5X , 5HOROER, 5X , 1 OE 1 0 , 3) 
wRITE(K0UT,265) 
nRITE(KOUT,270) (M,Mbi,MT) 

WRITE(K0UT,275) 

WR1TE(KOUT,280) 

00 225 I«1,IS 

225 WRIT£(KOUT,285)FAM0A(I),FAMO8(1),(RMU(I,M),Mb1,mT) 
WPITE(KOUT,260) 

WRITE(KOUT,280) 

DO 230 1«1, IS 

230 wRITE(KOUT,285)FaMOA(1),FaMO0(I), (PMU(I,M),MbI.MT) 
WRITE(K0UT,265) 

WPITE(KOUT,200) (FKF(M),M81,MT) 

WRITE(KOUT,205) 

WRITE (KOUT, 21 0 ) (EAK(M),Mbi,Mt) 

WRITE(KOUT,215) 

WRI TE (KOUT, 220 ) (EXK(M),Mai,MT) 

3752 VN(N+n*0. 

IFC(N+T)8-1 

WTM(N*1)8-i, 

FAMOA(Ntl)8CHAR 
FAMD0(N71 iaBLANK 
TF(N+1)850000. 

: new JANNAF chemistry uses ELECTRONbE, blimp tests for ELECTs66 

DO 231 I81,IS 

?3l IFCKATCI) .EO. IHE) KAT(I)666 
IF(DUB8.GT.0.) TF(N71) b OUB8 
RETURN 

end 
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1, 

3. 

B. 

9. 

10 , 

11 . 

IS. 

13 . 

15. 

16 , 
17 . 
IB. 
1% 
20 . 

22. 

23, 

2«. 

as, 

26. 

27. ’ 

28 , 

30. 

31. 

32. 

33. 

за. 
35. 

зб. 

37, 

38. 

3% 

ttO. 

a?. 

«3. 

аа, 
as. 

аб. 
‘* 7 ‘ 
as. 
ao.' 
so, 
5). 
52. 

5a. 

55. 

58 .' 

57 . 

58 . 

60 . 

81. 


CB;»54 

SUBROUTINE PROPS 
INTEGER FAM0A#PAM08 

COMMON/TEMCOH/ VKC 8i»PA( 9, 9),PV( 9, 9) 

common /BLQCOM/FAMQAI 60),FAMOB( 60), N ,FR( 60, 15),M(3) ,LEF( 8) 

1. LEFSt 8),PIEASE,I.EFWI 8) 

common/eogcom/ PE(ao, n,PTECao, n,sPE( 6,ao, n.ouEs, 

lUE(aO) .RHOE(aO) , VMUE(aO),TE(aO),UEOGE,OUEDGE,D2UFDG, VMWF-.HF,C90 

2, D3IP(ao), IOSlP,TTVC,TVCC(aO),HEA(aoi,SF(20 J ,CS(20) ,C3PR(201 , 

3 CG(20),CGP(20),SREF,GEP,NEN 

COMMON/EQPCOM/RB(60,3),RC(60,3),RD(60,3),RE(60,3),RF(60.3) ,RG(60,3 
l),TU(60,l),FF(60),prA,IFC(60),ATAC8),AT8(8),ATC(8),WATt8i,RA(60,3) 
*• 

2 KAT( 81,1R( 8) , iS.KSaO) ,LAM1( 60),P,T.TK( 8, 81,VN( 6M, 

3 VNUC 60, 8), ITFF,KR2,HCH.NCV,WM,WTM( 60), V( 60),YW( 60),GGC 60) 
a ,T0( 8, 8),EP0VRK,31GHA,fiASMOt 

common /EQTCaH/3lP,HlP,EL,ENL,FLI0 ,CPF, ire, IER, AA.ITS, IN, IL,IT, 

1 MODE, HMELT, smelt, TMAX,TMIN, melt, 3UMN,SUMt., NS, WSS,B1 . I SP2, ISPQ. 

2 I3P,KKJ,SVA,3V8,SVC,3V0,3UMC,FFF,CMF,EP,RV, IFCJr ,WTG, WTI., JC,HG, 

3 CPG,TTMIn,TTMAX,L 2,L3,1B( 9i,EB( 8),EBLt 8) , A ( i u, i a) , B ( 1 U ) , 

a 1P{ 60),ALP( 8),FNU{ 8),5AMH( 8),GAMF( 8),3LAMt 6),DY{ 60),RVS, 

5 CPC 60), H( 60), sac 60),TCC 60),VLNKC 60), EC 60i,PNUS( 8), 

6 BCC 8),8LNKC 8),ByC 8),IsCC 8),BE( 8),JJ( a) 

COMMON /INTCOM/KKRC20)»KIN,KOUT,MAT1I,MAT2i,matij,MAT2J,nETA, II, 
1ISS,N3, ITT, NT IME,NSP,N3PMi, NAM, NLE0,NNLEQ,NRNL. HITS, KAPPA, CBAR, 

2C A3E Cl 5 ),BB (8), MwE , NON. kOC 1 0 ) , ITEM, NI TEM, KRl 7 , nbT, N 8T?, TOENT, 

5 KH9(ao) ,KAUXO, JTI mE, J3PEC,H0C3) 

COMMON /PRPCOM/PHC1S),TTC1S),RHOC15),SCC15) ,CAPCC1S),QRC15) ,HH(15) 
1,CP8ARC15), VMWCIS),PHIKCI5, 6 ) , ORHOH, DRHOK C 6).ZKC Al.OZKHC 6), 0 

2MU3KC 6),0MUaKC 6),0TKC 6),0PHIKHC 6),0PRKC 6).DSCK( 6),DCAPCKC 6) 
3,0HTILKC 6),0QRKC 6),0CPBK( 6),DCPTK( 6),DMui2Kt 6),DZKK( 6, 6) 
a,OPHIKKC 6, 6), 0MUaH,0MU3H,DHTILH, VMU12,CT,CTR,CPTIL,HTIL 

5.VMu3,OTH,0CAPCH,0PRH,03CH,OQRH,0CPBH,DCPTH,0MU12H,VMUC15). rmop 
6(1S),PHIKPC15),HP,TP,ZKPC 6),VMu3P,VMuaP,HTlLP,CPH0(iai,GMP(l5) 
COMMON/.WALCOM/Fwcao, i),Twcao, i),Hw(ao, i),spw( 6,ao, li 
l,RHOVWCaO, r),FLUXJ( 3,a0,- 1),IMW,ITW,IFN,ISPW,IRH0 Vw,IFLUXJ 

dimension PRPCl) 
equivalence CPRPcn,pvci)i 
IFClI-n 310,300,310 
300 IFCKKR(ia)-lO) 310,302,302 

302 KKR(laj«KKRCla)"10 

GO TO 300 . 

310 IF(T-lOO.Ol) 312,312,320 
312 KKR( lajiKKRC ia) + 10 
320 WHaAA/P 
ISVbIS 
1S»NSP 
I3VP»13V71 

303 ISV2»I3V*2 
CT»-0.5 
ISM»I3-1 
l8PsIS+l 

I3P2»T342 ' 

TTCin»T*l,8 

RHOCII)»AA/<1.3ia6*T) 

CTfl«CT*l ,9876 

C FORM NECESSARY SUMMATIONS 
PMU2«0. 

CPTILrO. 

wTGbO, 

HGbO. 
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65. 

65. 

66 , 
67, 
6 «. 
6«». 
7n. 

r> 

7?. 

75. 

7«. 

75. ' 

76. 

77. 
7B, 
76. 
80 , 
81. 
82. 

8 «. 

as,- 

86 , 

88 . 

86. 

6J. 

62, 

65, 

ба. 

65, 

бб, 

67. 

68 , 

66 . 
100 . 
101 , 
102 . 
105, 
100 , 

105, 

106, 

107, 

108 , 
106. 
no. 

111, 

112 . 
115, 
no. 

115. ' 

116 , 

117. 

118 . ' 
116.' 
120 . 
121 , 
122 . 
125: 
120: 
125. 


CPGoO, 

htil»o. 

PMU1*0. 

THU3=0. 

I»1 

DO 051 IKb^N 

lF(K4T(ISV)-66) 500,501.540 

501 IF(IK-ISV) 500,051,502 

502 H(I)»H(n-VNU(I, I3V)*H(1SV) 
WTM(noWTM(l)-VNUa, ISV)*WTM(1SV) 
CP(I)=CP(n-VNU(I,l3V)*CP{lSV) 

500 iFCIFCni) 051,0550,051 
0550 PHUl«PMUUVN(n*FFai 

051 

VMU1«PMU1/P 

4MU5»0, 

PMU6»0. 

WDZb1,585 
WOO B 0.280*WOZ 
DO 454 IBI.N 
VAbVN( 1 j/PF(I) 

!F n.CT.18) GO TO 052 
VK(I)bVW(1) 

ZK(I)bva 

052 iFdFCCn.NE.Ol GO TO 050 

ASTaR a 1,15 * 6G(1)/FF(I) * GG(n/FFm 

WD2b1,2*ASTAR/PMU1 

wD7sW0Z/PMUl-WD2 

W05b,52*A8TAR/PMU1 

W08aW00/PMUl-W05 

VBBVA*WTM(li 

VCbVN(1)*FF(I) 

IF(I,LE.I3) GO TO 057 
IF (I.CT.ISV) 50 TO 056 ’ 

IF (KAT(I).NE,66) 00 TO 057 
WTM<!)bO, 

CP(I)"0. 

H(I)a0, 

GO TO 050 

056 00 055 KBlflSM 
VK(K)oVK(K) + VN{I)*VNua,Ki 

0S5 ZK(K)BZK(KnVA*VNU(I,K) 

057 PMuaaPMU2+VB 
TMU5«TMU3+VA 
C6TILBVA*CP(I)+CPTIu 
HTIL«HTIL4VA*H(I) 

WTGBWT6>VN(I)*WTM(n 

HGsHG*VN(I)*H(I) 

CPG8CPG+VN(I)»CP(I) 

AMU5aAMU5tVB/(W0Z-VC*W07) 

PMU6bPMU6+VA/(WOO-VC*W08) 

oSO CONTINUE 

VHU5*AMU5/WTG 

VMU6b(PMU 6 ♦CPTIU/l .6866-2,5*T*1U3)/P 

VHU2BPHU2/P 

VNU5BTMU5/PMU2 

CPTIL B CPTIL / PMU2 

HTIU B hTIL / PMU2 • 1,8 

HGbHG/WTG 

CPGbCPGVWTG 

WMbHTG/P 

ZKS B I.O 

VKSsl ,0. 

DO 95 Kal.ISH 
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12«i ' 


VK(K)»VK(K)/WTG*W7M(K) 

127. 

95 

ZK(K) » ZK(K) / PMU2 * WTm(K) 

128 ■ 


OMEG4Bl.07/(T/ePOVRK) **0.159 

120. 


O0AR a 2,82851E-5/(8IGMA . SIGMA) *T/P*SQRT (T/BASMQL ) /Omega 

13n, 


VMU(II)bRH0(II)*D8AR *VMU5/VmU1 

ist. 


lF(KR(Si) 451,461.460 

132; 

450 

RHOE(ISS)aRHO(in 

133. 


VMUe(I88)5VMU (II) 

134, 


VMWEaWM 

135. 


is^rsv 

13h, 


RETURN 

137 , 

451 

CONTINUE 

138. 


CAPC(II)BRHOni)/PHaE(ISa^*VMU(ll)/VMUE(ISS) 

135. 


VMM(II)aMH 

140 ■ 


VI.AM»RH0(11)*DBAR/WM*VMU5/VMU1*1 .9869 

141, 


3C(I1)bVMU5/VMU2*WM 

142. 


IF (KKR(14)-i) 4613, 4612,4511 

103: 

4611 

FFK2BWM/VMU2 

144. 


VMU1«FFK2 

145, 


VMU3"1./HM 

14h. 


CPTlLaCPG 

147, 


HTIL«HG*1,8 

148. 


00 4614 Kal.lSM 

145; 

4614 

ZK(K)oVK(K) 

150. 

4612 

CTsO. 

151. 


CTRbO. 

152, 

4613 

VMU12bVMU1*VMU2 

153. 


IF(KKR(20)) 9004,9005,9004 

154. 

9004 

WRITE(KOUT,90 06)OMECA»08AR, VLAM, SC C 1 1 ) , PR ( 1 1 ) , VMUl , VMU2 

155.' 

lT(in»VMUS* VHU6»F8(l)*Fr(2),PFt5)»CPTlL,HTlL, (VK Cn.WTM(i) 

i5<>; 

2!«l,ISMj,VMUni) 

IS7, 

9005 

CONTiNUf: 

158. 


1F(KR(6)) 5000,5340,5340 

155. 

SflOO 

CPBARdlitCPO 

I6ft, 


PP(1I)8CP6/VMU6*VMU5/1.9869*WM 

IM, 


NPRalSPZ 

142, 


DO 501 Ial,NPR 

153. 


00 501 J»1,I3V2 

154, 

501 

PA(l,J)aO. 

165. 


PA(3,l)aPMU2*CPTU*T 

155. 


DO 502 K83,ISV2 

15?; 


IF (KKR(14)-1) 5016,5016,5017 

158, 

5016 

FFK2eFF(K-2) 


5017 

IF(IFC(K-2)) 502,5011,5014 

170, 

5oll 

PA(l,K)aVN(K-2)/FFK2 

171 


GO TO 5013 

172; 

50l4 

PA(l,K)»l./FFK2 

173; 

5013 

PA(2,K)*P4(1,8)*WTM(k-2) 

174 


PA(3,K)8PA(1,K)*H(K-2) 

175,' 


IF(K-ISP)5018,5018,5019 

175, 

Sole 

PA(K*l,K)aPA(l,K) 

177. 

5019 

CONTINUE 

178. 

502 

CONTINUE 

175, 


JalSVP 

180, 


IFCISVP.GT.N) GO TO 5070 

181, 


00 507 IJbI3VP,N 

182, 


iFdFC(J)) 507,5021,507 

183; 

5o2l 

PRPCl )aVN(J)/FFK2 

184, 


IF (KKR(14i-l) 5022,5022,5023 

185, 

5o22 

PRPd)aVN(j)/FF(J) 

185, 

5623 

PRP{2iaPRPd)*WTM(J) 

187, 


PRP(3)apRp(i)*H(J) 

188. 


00 5024 rB4,I3P2 

185. 

5024 

PRPd)aPRPd)*VNU(J,I-3) 


VMUl.T 
ZK(I j, 
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ion. 


DO 505 lal.NPS 

I’l , 


PA(I,1)«P4(I. 1 )-TC(J)*P«P(I) 

198, 


DO 505 K«1,13V 

I’S. 


iFdFCCK)) 506,506,505 

19«, 

506 

PA(I»K62)BPA(l,K + 2)*PRP(n*VNU(J,K) 

195. 

505 

CONTINUE 

I9fe, 

507 

JoJ+1 

19?; 

5670 

VAsAA/WTMaS) 

19R, 


DO 5U l«l,I3V2 

199 


A(I,l)aA(Z,l}*AA/t,a 

200. 

511 

A(I,I3P2)aA(I, I3P2)*VA 

201, 


DO 512 jaS.ISP 

202; 


VA*AA/wTM(J-8i 

2os; 


DO 512 Ial,ISV2 

200, 

fM 

IT 

A(I,J)aA(I,J)*VA-An,ISP2j 

205. 

c 

FORM PA, A PRODUCT AND TRAn3P03E (TO ESTABLISH FOUIVALENCF 

20R.‘ 


DO 521 I«1,NPR 

207, 


DO 521 J«1,ISP 

20B, 


PV(J,naPA(I,n*A(l,J) 

209 


DO 521 L«3, I3V2 

210, 

521 

PV(j,n»PV(J,n*PA(l,L)*A(L,J) 

211. 


DO 533 K»l,I3P 

212. 


PV(K, 1)« tPV(K, 1)«VMU3 *PVCk,2))/PMU2 

215. 


PV(K,3)B(PV(K,3i*l,a-HTlL*PV(K,2))/PMU2 

210, 


00 531 Jal,ISM 

215, 

5ll 

PV(K, j63)o(PV(K, J+3)*WTM(J)-ZKU)*PV(K,2 ))/PmU2 

216, 

533 

PV(K,2)eCT«An,K)*PV(K,2)/PMU2 

217, 


PV(2,21aPVC2,21-l,/P 

21B, 

C 

POOR man-3 equivalence 

219, 


OR(II}aO, 

220. 


OCAPCH«CAPC(in*(2.*A(2«l)-0.301*A(l,n) 

221, 


DPRH*0. 

222 . 


OSCHaO. 

225, 


DQRHaO, 

220. 


OCPSHaO, 

225, 


OCPTHbO. 

226. 


DMU12HO0. 

227, 


ORHOHaRHO(II)*(A(2, n-A(t,ni 

22«. 


DTMaTo4(l,l)*1.8 

229; 


0HU3HaPV(l,l j 

230. 


0MU0HaPV(l,2) 

231, 


0HTILHaPV(l,3j 

238, 


IF (NSPM1J53O0, 5300, 5320 

233? 

5320 

DO 530 KBj.lSM 

230,- 


PHIK(II,K)aO. 

235, 


ophikhckibo. 

236. 


ORHOK(Ki3RHO(in*(A(8,K + 2i-4(l,K + 8n 

237.- 


DPRK(K)bO, 

23P, 


D3CK(K)aO. 

239, 


0TKCK)sT«A(l,K42)*t.a 

200. 


0CAPCK0OBCAPCan*(2.«AC2,K+8)-0.30l*ACl ,K + 2 5 5 

201, 


DQRKlKlaO, 

208. 


DCPBKCK JBO. 

203. 


DCPTK(K)bo, 

200, 


DMU12K(K)bO. 

205. 


DMU3K(k)bPV(K62, 1 ) 

206, 


DMU0K(K)8PV(K+2,2) 

207. 


0HTILK(K)aPV(K62,3) 

208. 


DZKH(K)aPV(l,K+3) 

209, 


DO 532 iai,lSM 

250. 


OPHIKK(I,K)aO. 

251.’ 

538 

0ZKKCI,K)aPV(K+2,I+3j 

252. 

. . 530 

CONTINUE 

253. 

5300 

L1MbN+KR(8) 
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25u; 
255. 
25 a; 
25T^ 
25fl. 
250,' 
260. 
261. 
263. 
26S, 
264^ 
26S. 
266^ 
267. 
26fl, 
260, 
270. 
271 ^ 
272. 
273; 

274, 

275, 

276, 

277, 
276. 
270, 
280, 

282. 


00 535 

IF(KR(6)y 5543,5344,5344 
5345 lF(M0D(IFC(li»3n 535,5344,535 
5344 FR(I,II)«VN(I)/P 

IF(VNCn) 5341,5341,535 

5341 IFdFCdl) 535,5342,535 

5342 FR(I,H)oi.E-30 
S55 C0N7INUE 

IF(KR(6)) 538,538.5350 
5350 IF (KR(h-li 536,5361,5360 
5361 Y(JC)»0. 

536 HW(ISS,I7T)aHG*1.8 
5360 00 537 K«2, IS 

537 3PW(K-1,I38,ITT)»VK(K-1) 

RHOVWd33,l77i«-RV 

538 C0N7INUE 

lF(KKR(20)i 0001,0002,9001 

OoOl WRlTe(K0UT,O006i0HU3H,DMU3K,OMU4H,DMU4K,OHTILH,DHTILK,DTH.DTK,0RHO 

ih,orhok,ozkh,ozkk.hg,vk 
0fl02 CON71NUE 
ISoISV 

0n06 FORMATC/(1X1P10E12.5)) 
iSPelSVP 
I3P2«13+2 

iFdl-n 551,530,551 
534 00 540 lal.IS 
540 YWdiaVdj 
551 RETURN 
END 
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1 . 

2 . 

5 : 

5. 

6 . 

7, 

8. 


CB26A 


SUBROUTINE Taylor (o,fm,f,p) 

OIMEN3ION FH(n,F(l),P(l) . 

COMMON/ INTCOH/ KR(20),KIN.KOUT,MAT1 I,MAT2I,MAT1J,MAT2J,NFTA, I 
02 > 0*0 

IF(KRCIO)-I) 1,2,4 
iFCI-NETAi 4,1,4 
FO»p. 


.0. 

P(l)a(((FM(3)/6, 

in. 

P(2i»(((F0/30,-F 

11 ; 

P(3)«0. 

12, 

P(4)a(((FM(3)/20 

13, 

GO TO 3 

14. 

1 F03F(3)-FM(3) 

15. 

p(l)e(((F(3)/6.- 


P(2)»(((F0/30,-F 

1’, 

P(4)a-(dF0/252. 

18. 

P(3)a(C(F(3)/20. 

10. 

3 CONTINUE 

20.' 

RETURN 

21 .■ 

END 
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1 

a 

s 

a 

5 

h 

7 

n 

0 

10 

n 

12 

15 

lu 

15 

16 
17 
IR 
lo 
20 
21 
22 
25 
2U 

25 

26 
27 
2A 
26 

50 

51 

52 

53 
50 

55 

56 

57 
5fl 
30 
00 
01 
02 
03 
00 

05 

06 
07 
0R 
00 

50 

51 

52 
55 
50 

55 

56 

57 
SA 
50 
60 
61 


% 


■ 

t 

■ 

« 


« 






% 


CB27A 


subroutine LINMAT 

COMMON/ETACOM/ETa(15)iOETa( 15).DSO(10),DCU(10),B1 Cl0),B2(10i 

1, LAR(123i,BAl(05,18),BA2(3O,l5) 

COMMON/INTCOM/ KR ( 20 1 » K IN, KOUT , HAT 1 1 , H AT2 1 , MAT IJ , MAT2 J i NET A , I , I S . N 
1S» IT,NTlME»NSP.NSPMl,NAM,NLEO,NNLEQ,NRNLf I TS , K APPA ; CB AR ,'c ASE ( 1 5 ) 

2, B(8) » MWE.NON,KQ(1O),1TEM,NITEH,KR17»NbT,N0T2, IDEMT,KR0(0O) 

3, KAUX0, JTIHE, JSPEC«MD(3) 

DO 104 Ib2,NETA 
0ETA(I-1)oETA(I)-ETA(I-1) 

0SQ(I-1)o0ETA(1-i)»0ETA(I.i) 

Bl(l-l)BB(3)*0SQa-li 

B 2 (i>n 32 .*Bi (i-n 

TO0 DCU(I-l)«0ETA(I-n*O8Qtl-l) 

MATlIa3*NETA-2 
HAT2I«2 * NETA 
MATtJa NETA+5 
MAT2JO NETA 
DO lOa I31 ,maT 21 
DO 108 J*l,MAT2J 
i08 BA2(I,J)»0. 

DO 105 Iei,HATlI 
00 105 Jal,MATlJ 
(05 SA1 (I,j)bO. 

BA1(1,2)bi. 
aAl(l>5)« 030(11/2. 

BA1(NETA,3) » DETA(l) 

8A1 (MAT2I-1,3)«1, 

BA2(2,nB0ETA(l) 

BA2(NETA71,1)bi, 

JoNETA 

00 106 Ib 2,NETA 
8Al(I-l,X+2jB0ETA(I-ii 
BAl (J<I a2}b1. 


BA1(J,I75)B-1, 

BA2(I.I)bi, 

lE(I-NETA) t05»106it06 
i05 BA2(I,Itl5a«l, 

t 06 jBj +1 

0060 EORHAT(2X1P12E10.5) 

0064 FORHAT(2X37HUINEaR MATRIX FOR MOMENTUM EOUAT t ONS , 15 , 2H XI3. 

127H, BEFORE AND AFTER SOLUTION) 

0079 F0RMAT(2X44HLINEAR MATRIX FOR MASS AND ENERGY EOUAT IONS , 1 5 , 2H XI3, 
127H, BEFORE AND AFTER SOLUTION) 

IF(KR(15)-1) 9062,9062.0061 
9o6l wRITE(»<OUT,OO60j NATII.MAtIJ 
DO 9065 Isl.MATlI 

0065 WRITE(KOUT,0060i(BAin,J),J»l,MATlJ) 

0(j62 DO 107 LI»2 .naTU 

(07 call MATSKBAUI.lI)) 

IF(KR(15)"1) 0060. 9060. 0066 

0 066 DO 0067 I»1.MAT1I 

0067 WRITE(KOUT.0060) (8A1(I.J),J»I.MATIJ) 

WRITE(KOUT,0070) MAT2I.MAT2J 

DO 0068 Iel,MAT2I 

0068 WRITE(KOUT,0060) OA2{I,J),Jsi,MaT2J) 

9060 DO 110 LI»1»MAT2J 

110 CALL MATS2(BA2C1.LI)) 

IF(KR(15)-1) 0072. 0072. 0071 
Oo7l DO 0073 IB1.MAT2I 


Oo73 WRITECKOUT,9060) (8A2(I.J),J»1,MAT2J) 
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6o72 

NLEr3»M4Tll*NSP*MAT2I 

63. 


NNLEQ«MATU+N3P*MAT2J 

6«. 


NAHaNNLEQ-(N8PMU2] 



NPNLaNSP+l 

bh. 


LAR(NAH,'l)a2 

67.' 


JB2+MATU 

6fl, 


LL»NAH+2 



00 111 L»LL|NNLEQ 

rn. 


LARCLlaJ 

71^ 

f U 

JSJ+MAT2J 

72, 


l=nam+i 

75, 


jso 

74. 


00 115 Iai,NAM 

75; 


J = J+1 

76, 


IFCLARai-J) 113,112, 

77, 

»12 

L»L + 1 

7fl, 


J3J+1 

76. 

U5 

LARCUbJ 

80, ■ 


IFCKRCIS)) 9901,9602, 

61, 

9901 

continue 

82. 

9694 

F0RHAT(2Xi6H0EBUG lar 

85. 


WRITE(K0UT,9999) LAR 

84. 

9602 

CONTINUE 

85,' 


RETURN 

86. 


end 


1N0ICE/(6X201«)) 
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1. 

2. 

3, 

5 , 

*>. 

1 : 

10^ 

11 .' 

‘3, 

1 ". 

15 ^ 

16. 

Ifl, 

lO. 

20 , 

21. 

22. 

23. 

2< 

25. 

26, 
2T^ 
2A. 
2“. 
30, 
31 . 

32 .' 

за. 
35. 

зб, 
37, 
3fl, 
3«». 
«o. 
" 1 . 
«2, 
a3. 
ua. 
" 5 , 
a6. 

ao. 

50. ' 

51 . 

52. 

53. 
50, 

55. 

56. 

57. 

58. 
50, 
60. 
61 .' 


ca?sA 

SUBROUTINEKINET 
COMMON /H13COM/ CliC2»C3 
COMMON /8UMCQM/ BUMP , CORMa . EASE 
COMMON/INTCOM/KKR(20),KIN,KOUT 
dimension ELKM{1o),DELK(10) 

COMMON/EQPCOM/RB(60,3)>RC(60«3),RD(60,3).RE(60.3) «RF(60,3),RG(60,3 
I j,TU(60,3),FF(60).FFA,lFC(60j,ATA(e),ATB(8), ATC{8),WAT(8i,RA(60,3i 
S* , , . 

2 KAT( 8), IRC 8),I3,KR(10),LAMI( 60),P.T.TK( S, 8),VNC 60), 

3 VNUC 60, 6) , ITFF,KR2,HCH,NCV,WM,WTMC 60), V( 60),VW( 60),GG( 60) 

0 ,T 0 ( 8, e),EPQVRK,aiGMA,BASMQL 

COMMON /EQTCOM/SlP,HlP,EL,ENL,FLIO,CPF,IRE,IER,Ai,ITS,IN,IL,IT, 

1 M0DE,HMELT,3MELT,TMAX,TMiN,MELT,SUMN,3UMI.,MS,w8S,B1, I3P2, I3P0, 

2 ISP,KKJ,SVA,SVB,SVC,SVD,3UMC,FFF,CMF,EP,RV, ^FCJC,WTG,wTL, jc,hc, 

3 CPG,TTm1n,TTMAX,L2,l 3,IB( 9),EB( 8>,E8L( B) , A M 0 , 1 0) i 8 C 1 0) , 

4 IPC 60),ALPC 8),FNU( 8),gAMHC 8),0AMFC 8>,3LAM( 8),07C 60),RVS, 

5 CPC 60), HC 60),S8C 60),TCC 60),VLNKC 60), EC 60),PNUSC 8), 

6 BCC 8),BLNKC 8), SVC 8),lBCC 8),BEC B),JJC 0) 
COMMON/KINCOM/mT,FKFC10),eAKC10),EXKC10),PMUC 8,10),RMUC 8,10), 

1 DKPTC10),PKPCtO),PKRC10),RATC10),R3IGC10),MAC10),LLC10),PMR(10), 

2 PRMUC 8,10),EE3EC 8) 

5 FORMATC1313) 

10 RT a 1.R869 * T 
00 00 mbI.mT 
SUMO’ » 0. 

8UMK a 0, 

SUMR a 0. 

SUMP BO, 

00 15 Ial,13 

PRMUCI,M) a PMUCI.M) -RMuCI.M) 

3UMK a 3UMK ♦ PRMUCI,H) * VtNKCI) 

3UMR a SUMR ♦ RMUCI,M) * vCI) 

SUMP a SUMP ♦ PMUC1,M) » VCl) 

15 SUMO a SUMO ♦ PRMUC1,M) * MCI) 

C equilibrium constants for kinetic reactions in TERMS OF BASE SPECI 
C LOG KP-S 

C OERIVATIVES of logs of above KP-S WITH RESPECT TO LOG T 
OKPTCM) a SUMO / RT 

C RIGHT HANO SIOE COR REVERSE PART) OF DRIVING POTENTIAL 

IFCITS ) 19,10,16 
10 OELKCH)bO, 

16 IFCDELKCM)) 17,19.18 

17 SUMPaSUMP-DELKCM) 

GO TO 19 

18 SUMRaSUMRtOELKCM) 

19 ELKMCM)aSUMP-3UMK»8UMR 
PKPCM) a EXPCSUMP - SUMK) 

C LEFT HaNO SIOE COR FORWARD' PART) OF DRIVING POTENTIAL 
PKRCM) a EXPCSUMH) 

VKl a PKRCM) - PKPCM) 

IF CVKl) 25,20,25 

20 VKl a l.E - 9 * PKRCM) 

25 CONTINUE 

VK2 a AA * FKFCM) * CABSCVKl)) * * CEXKCM) - 1.) * EKPC • EAKCM) / 
1 RT)*C-C3) 

VK3 a VK2 

IF CEXKCM) - 1.) 35,30,30 
30 VK3 a VK2 * EXKCM) 

C pM times forward rate OF rEACION I CPMbAA) 

35 PMRCM) a VK2 * VKl 
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62. • 


PKP(M) a PKP(M) * VK3 

63. 


PKR(M) a PKRtM) * VKJ 

6a; 


PAT(M)=AMAX1 (ABS(PKP( 0)1,483 tPKR(M) ) ) 

65. 


R3IG(M)aRAT(M) 

66.' 


IF(KR(7)-1) 40,40,36 

6T. 

36 

IF(M-l) 37,37,39 

6fl. 

37 

WRITE(KOUT,38) 

6«, 

30 

forma T(2XlHM7X3HLKP6X8H0l.KP/DLT6XaHPMRRa)(4HPHRP9i(3HPMP9X3HRAT) 

70, 

39 

WRITE(K0UT,41) M,3UMK,0KPT(M),PKR(H),PKP(M),PM9(M),RAT(m) 



1 ,ELKM(M),0ELK(M) 

72. 

40 

CONTINUE 

75.’ 

41 

FORMAT(I3,2X0E12.5) 


45 

FORMAT(lX26HA{I,J),B(I),lal,8,Jal,0 IN) 

75. 

50 

FORMAT(1X12E10.3) 

76, 

55 

F0RMAT(IX27HA(I, J),0(I),Isl,8,Jai,0 OUT) 

T7. 


IF (KR(7) - 1) 00.00,65 

7fl, 

65 

CONTINUE 

7<». 


WRITE(KOUT,50)PRMU 

00. 


WRITE(K0UT,215) 

0j; 


WPITE(KOUT,50) (E0(I).Ial,iS) 

S2. 


wRITE(KOUT,50)(Em, tal,I3) 

83, 

70 

WRITE(K0UT,45) 

aa' 


00 75 Ial,ISP2 

85. 

75 

WRITE(KQUT,50) (Alt, J),Jal,lSPO),B(I) 

86. 

8o 

CONTINUE 

87. 


IF(ITS) 105,85,105 

08, 

C***«*OROER REACTIONS 

8«». 

85 

00 06 Mal,HT 

oo.' 

86 

MA(M)bM 

91. 


IF(MT-I) 105,105,90 

92, 

90 

K a 0 

93. 


00 100 Ma2,MT 

«ja. 


IF(RSIG(M)»R3IG(M-1)) 100,100,95 

95. 

95 

K a MA(M) 

•’.8, 


MA(M) a MA(M - 1 ) 

or. 


MA(M • 1 ) a K 

90, 


OUMlaRSIGCM) 

99, 


RSlG(M)sRSIG(M-n 

100. 


RSIG(M-1 iaOUMl 

101. 

1 00 

CONTINUE 

102^ 


IF (K) 105,105,05 

103. 

C*****START second major loop On reactions 

lOU, 

?05 

00 200 MMai,MT 

105. 


R3IG(MM)aO. 

106, 


M a MA(MM) 

107, 

C*****lS IT A controlling reaction 

108. 


IF(ITS) 106,100,106 

109. 

V06 

L«LLCMM) 

no. 


IF(L) 126,126,107 

111. 

?07 

OUMaA03(PRMU(L,M)*RAT(M)) 

112. 


CO TO 130 

113, 

i08 

LL(MM)aO 

lia. 


00 125 Lai, 13 

115.' 


IF (PRMU(L,M)) 110,125,110 

116, 

110 

00 115 Kal,MM 



IF CL - LL(K)) 115,125,115 

118. 

115 

CONTINUE 

119. 


OUMbA03(PRmU(L,M)«RAT(M)) 

120. 


lF(A8S(PRMU(L,«n-.OOl) 125,125,120 

121, 

c* * 

* YES, IT IS FOR MA33 BALANCE L 

122. 

?20 

LL(MM) a 1 

123. 


GOTO 130 

12a; 

?25 

CONTINUE 

125. 

c* * 

*N0, IT IS not, AOn into all mass balances 
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136.' 

726 

Il»l 

127. 


12 a IS 

12B. 


goto 170 

12<». 

c * * ** 

tREARRANGE ACCORDING TO CONTROLLING REACTION 

130. 

l30 

RSIG(MMjaOUM/E8(L)*0.1 

131^ 


OUMlaPRMU(L#Mj 

132, 


PRMU(L.M) a 0, 

133. 


DO 165 Ial,lS 

134, 


IF (PRMUd.M)) 135, 165,135 

135. 

i35 

DUM2 a PRMU(I,M) / OUMl 

I3fc. 


lP(l)al 

137, 


MP a MM ♦ 1 

I3fl, 


IF (MT - MP) 155,140,140 

139. 

140 

DO ISO KBMP.MT 

140. 


MI a hack) 

l«l. 


PRMUCI.MI) a PRMU(1,MI) • 0UH2 * PBMU(L,M1) 

l«2. 


IF (AB3(PRMU(I,MI)) . .001) 145.150,150 

i«3; 

145 

PRMUCI.MI) a 0. 

144. 

750 

CONTINUE 

145, 

755 

DO 160 Kaj.ISPQ 

146, 

160 

ACI ♦ 2,K) a ACl ♦ 2,K) - DUM2 * ACL ♦ 2,K) 

147. 


BCl ♦ 2) a BCI ♦ 2) - OUMs * BCL ♦ 2) 

14«. 


Ea)aECI)-DUM2*E(U 

149, 


0UM2 a AB3C0UM2) 

150, 


EBCI) a AMAXICEBCI) ,0UM2 • EBCL)) 

151. 

765 

CONTINUE 

152. 


PRMUCL.M) a OUMl 

153. 

C*«***AD0 controlling reaction into its mass balance 

154, 


11 a L 

155. 


12 a L 

156, 


EOLaE(L)^PMRCM)*PRMUCL#M) 

157. 


IFCITS) 170,230,170 

15«, 

230 

0ELKCM)aCl.-E4SE)*ELKMCM)*AMiNlCl,,AB3(E0L/EBCL))) 

159. 


ELKMCM)aELKMCM)-DELKCM) 

160, 


IFCPKRCM)-PKPCM) ) 240,170,235 

161. 

235 

PKPCM)aPKPCMj*EXPC-OELK(M)) 

162. 


GO TO 245 

163, 

240 

PKRCM)aPKRCM)*EXPCOELKCM)) 

164. 

245 

pMRCM)apKRCM)-pKPCM) 

165, 

170 

00 176 Jat.IS 

166. 


IFCIFCCJ)) 171,171,176 

167.' 

771 

SUMO a RmUCJ*M) • PKRCM) - PmUCJ.M) * PKPCM) 

16fl. 


00 175 lBll,I2 

169. 

775 

A(I ♦ 2,J ♦ 2) a ACI ♦ 2,J ♦ 2) - SUMO * PRMUCI.M) 

170, 

176 

CONTINUE 

171. 


SUMO a - PKPCM) * DKPT(M) • EAKCM) / RT • PMR(M) 

172, 


00 180 Iall,12 

173. 


OUMl a PMRCM) * PRMUCI.M) 

174; 


A(I+2,2)aAClA2,2)-DUMl 

175, 


Ad ♦ 2,1) a ACI ♦ 2,1) ♦ SUMO * PRMUCI.M) 

176. 


Ed)BECI)*DUMl 

177, 


Bd ♦ 2) a BCl ♦ 2) ♦ OUMl 

I7fl. 

1 80 

EBCI) a AMAXICEBCI) , ABSCpRMuC I, H) * RATCM))) 

179. 


EBCI) aAMAXlCEBCn.ABSCECl))) 

180, 


IF CKRC7) - 1) 200,200,185 

181, 

785 

WRITECK0UT.215) 

182, 


WRITECKOUT.SO) CEBCn.Ial.iS) 

183, 


aRlTECKOUT,50) CECI), lal.rs) 

184. 

l9o 

wRITECK0UT,55) 

185, 


00 195 lal,ISP2 

186. 


WRITECKOUT.SO) CAd,J),Jal,ISPQ),BCI) 

187, 

795 

CONTINUE 

188. 


wR1TECK0UT,5)M,H,I2,L,LL,MM,MA 

189.' 


WRIT£CKOUT,50)PRMU 
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190, 

191. 

192. 

193 , 
19« 

19h. 

19fl. 

19P,‘ 

200 . 

201 . 

202 , 

203. 

20U. 

205. 

206. ' 
20T.' 
208 ■ 
200 . 
210 . 
211. 
212; 

213. 

21 «. 

215. ' 

216, 

217. 

218. 

219, 

220 , 
221 . 
222. 

223. 

224. 

225. 

226 . 

227, 

228. 


229, 

2J0. 

231.' 


200 CONTINUE 

C»***«mOOIF7 coefficients to achieve linearity as four 13 APPROACHED 
DO 206 MM«1,MT 
L»LL(MM) 

IF(L) 201«206«201 

201 M*MA(MH) 

OUMSsRSlGIMM) 

IF(ITS) 250,248,250 

248 EESE(L)sE(L)*Cl,-EASEi/tl .+DUM2) 

250 E(L)»Eaj«EE8EfL) 

B(LY2)aB(LT2)'>EESE(L) 

EB(L5«-EB{L) 

ARsl. 

EXEL»PKR(M)/PKP{H) 
iFCEXELi 191,141,195 
V9i EXEL«l.E-35 

IF(PKP(N)-PKR(M) 1 142,195,193 

192 EXEL»1.E*35 

193 CONTINUE 
E0LbE(L)*0UM2/(0UM2+1 , ) 

DUMl»(l.*DUM2)/(l,+R3lli(MMn 

EBCL)bEB(L)*A8S(DUmi j 

IF(AB3(EXEL-1,)-,1) 204,2q4,202 

202 DUMlsE(L)7(ELKM(N)»PRMU(L,M) ) 

ARb(DUM1*PKR(M) )/PMR(M) 

ARbAMAXI (AR,0.) 

ABbAMIN1(1,,AR) 

?0O DO 205 JB1,IS 

IF(IFCCJ)) 203 , 205,295 

203 A(LT2,Jf2jaA(Lt2, J+2)* EOl*CPMU(J,M)*{1 .-AR)*A9*RMU(J,M) ) 

205 CONTINUE 

A(L + 2, 1)8A{L + 2, l)»EOL*(DKpT(M)*(l ,.ar)-EAK{P)/RT> 
A(Lf2,2)BA(L«2,2)TEOL 

206 CONTINUE 

215 FORMAT(ixi2HEBCn,Iai,IS) 

IFCKR(7)-1) 225,225,220 

220 WRITE(K0UT,55). 

DO 221 l8l,18P2 

221 WRITE(KOUT,50)(A(I,J),J81,I3PQ),BCI) 

WPITE(KOUT,50i (E(I), lal , IS) 

225 RETURN 

END • 
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1. 

2. 

S. 

b. 

7. 

fl.' 

•»» 

in. 

11 , 

IS. 

‘f' 

15. 

!<).' 

17. 

Ifl. 

2 n. 

21 . 

22 . 

2S; 

2U. 

25. 

26. 
2’, 
2fl, 

S’, 

30, 

31. 

52. 
33. 

3«, 

35, 

36. 

3^ 

3fl. 

30, 

«0. 

«1,' 

H?.. 

as, 

ua. 

a5. 

a7. 

as, 

ao. 

50. 

51. ’ 

53. 
5a. 

55. ' 

56. ’ 

57. 

58. 
50 . 
60, 
61. 


CB?9* 

subroutine FIRSTG 

COMMON/BLOCOM/ MOAC 60). M08( 60 ) # N3PEC , FR ( 60 , 1 5 ) , W ( 31 .LEF ( 8) 

l.LEFSC 8),P1EASE,I.EFW( 8) 

C0MM0N/ETAC0M/ETA(15)»DETA(15)»DS0(ia)»DCU( ui.Bl (ia),B 2 (iai 
1,LAR(123),BA1 (as. 18),BA2(30.1S) 

COMMON/ I NTCOM/ KR(20) ,KIN,K0UT,MATII,MAT2I,MAT1J,MAT2J,NFTA, I, I3.N 
IS* IT.NTiME.NSP.NSPMt .NAM. nLEO.NNLEQ.NRNL. I TS, K APPA , CBAR , C ASF C 1 5 ) 
2.8(8) * MWE,NaN,KQ(10).ITEM,NITEM,KRl7.NBT,NBT2, lOENT , KR9 ( aO ) 

3.KAUX0. JTIME. JSPEC.M0(3) 
a, IDUM(2),K0NRFT 

COMMON/PRMCOM/TImE( 50).PRE(a0),PTET( 50),GE( 50) .S(aO) .ROKAP(aO) 

1 . RNOSE. VKAP.NOrSC.IOlSC(ao).NSO(5),MSD(S) , ITF( 50). IPRE.RAONO.CONE 

2. PA0FL( 50),RADR(aO),RAOS(aO).IRAO 
C0MM0N/VARC0M/F(a,l5),G(3,lS).SP(3,lS, 7),ALPH 
EQUIVALENCE(C(1« 1 ).GM).(ITF(13),IST). (N30(5).NL) 

5 FORMAT(7E10,3) 

U FORMAT (3El0.a,5xIS,E10,a j 
5 F0RMAT(36I2) 

NULbO 

COMMON/UNICOM/UCO.UCE.UCL.UCM.UcP.UCP.UCS.UCT.UCV.ITDK 
IF (KONRFT.EO.2) go to 116 
lF(IAB3(KR(2i-2)-l) )10, 111/112 
TlO OUMi «(GE ( ITEM )-G( 1,1 ))/(G(l/NETA)-G (1,1)) 

00 113 IbI.nETa 
6(3. I)«G(3. I)*OUMt 
G(2,I)BG(2,I)*0UMt 

1 IS G(1,1)oG(1.1)+0UM1*(g(1,I)-C(1.1)) 

GO TO 152 

ill REAO(KIN.a) AUPH,F(J,1).F{3.1),IST 
IF(KR(2).E0,3) KR(2)oMIN0(-IST.-l) 

ALSQbALPHaALPH 
F(3.1)BF(3,l)*Al,SQ 
REA0(KIN,3) (F(2,I),H1,NETA) 

BAKMATlI.l) a F (3,NETA)*AL8Q 
CALL MATSKBAKl.ni 
00 131 lal.NETA 
?3l F(2 ,I)bF( 2,I)*ALPH 
T16 Lla2 
L"1 
IBl 

00 13a Mai, MATH 
I»I*1 

IF(I-NETA) 133.133,132 

132 IBLL 
L»L+LL 
LL«1 

133 F(L,I)aBAl(M,l)-BAl(M,2)*p(l.l)-BAl(M,3)*F(3.1) 

00 l3a jafl, MATIJ 

isa F(L, I)aF(L.n-BAl (M, j)*F(2,J-3) 

00 130 MBl.MATlI 
l30 BAKM.liaO. 

BAl(l.l)al.O 
call HATS2(BA1) 

00 130 KcNUL.NSPMI 

IF (K0NRFT,EQ.2) go to 117 

READ (KIN, 3) SP(2, 1,K),(3P (1. I, K), lal.NETA) 

SP(2,l,K)aSP(2,l,K).ALPH 
IF(K.NE.NUL) go to 139 
DO 1381 lal.NETA 
1381 G(l.l)aG(l,I)*UCE 
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B29A, FIRSTG 


62 . 

ба. 
6S; 

бб. 
67. ■ 
6fl. 
60. 
70.' 
71 . 
72. 

T's; 

7U. 
75. ■ 

77. 

70. 

an.' 

flj. 

az. 

85. 

66 , 

87. 

88. 

02 . 

03. 


G(2f i)aG(2il)*UCE 
?30 COMTINUE 
?t7 L»2 
161 

pO 138 M82,M4T2I 
I»I*1 

IF(I-NETA) 136,136,135 
?35 IBl 
L»L+1 

i36 SP(L,l»Kla8Al CM, n*3P(l,NFTA,K)-8A2(M, 1 j*SP(2, J ,K) 
DO 138 J82.MAT2J 

{3a 8P(L» liKiaSPCL, I,K)-BA2(M, J)*SP(1, J-1,K1 
00 140 Mbi,MAT2I 
140 8AI(M,1)80. 

IP (KONRFT.E0.2) GO TO 152 
IF(N3PH1.GT.0)REA0(KIN,5)LEF 
GO TO 152 

112 IF(NL.EO,0)PEAb(KIN,3) GW 
QWsGWwUCE 

l05 ALPH8 4,/ETA(KAPPA) 

2(1,1)60. 

2(2,1)60, 

2(3, 1 )B ALPH/ETA (KAPPA )* (C8AP+CBAR+ 1 . ) 
DUM1bALPH/ETA(KAPPa) a(CBAR- 0.5) 
ETATaALPH/(2(3,l)-DUMl) 

OUM2a0.5/ETAT*ALPH/ETAT 

0UM3*ALPH/(ETA(KAPPA)-ETA(NETA))**2*(1 ,-C8APi 
2(4, 1 ) = -2,*0UM2 
DO 114 Ii3, KAPPA 
I2(ETA(I-1 j«ETAT) 108,100,100 
?08 2(2, I-1)6(2(3,1)«0UH2*ET4(I-1))*ETA(I-1 ) 
2(3,I-1)82(3,1)-2.»0UM2*ETA(I-1) 


04. 


' . 

08. 

00 . 

100 , 

101 , 

102 . 

103 . 

104 . 

105 . ' 

106 . 
lo?: 
108 . 
lOO. 

UP.' 

111, 

112 . 
113 . 
lla. 

115 , 

116 . 

117 . 

118 , 
110 . 
120 .' 
121 . 
122 .' 
123 . 


2(4, I-1)6-2.*DUM2 
GO TO 114 

Too 2(2,I-1)8AUPH/2 .aDumi*ETA(I- 1) 

2(3,I-1)8DUM1 

2(4,1-1)80. 

Vl4 2 (1,1-1)82(1, 1-2) ♦ (2 (2, I-2)+2(2,I-l))/2,*DETA(t-2) 
00 107 IbKAPPA,NETA 

2(2, I)»ALPH-0UM3«(ETA(NETa)-ETA(I) )»* 2 
2(3,n62.*0UM3*(ETA(NETA)-ETA(I)) 

2(4, 1)8-2. *DUM3 

T07 F(1, I) 62 (1,1-1 )♦ (2(2,1 )+2 (2,1-1 ))/2.*DETA(I-n 
DUM8 (GE(ITEM)-GW)/AlpH 
00 115 Ibi.NETA 
G(l,I)a2(2,I)*DUM+GW 
C(2, 1)82(3, I)*OUM 
115 G(3, 1)82(4, n*OUH 

iS2 continue 

0901 20RMAT(1X1P12E10,3) 

0904 20RmaT( 2X10HDEBUG FIRST GUESSES) 
l2(KR(lSn 0902,0003,0902 

0902 CONTINUE 
WRITE(KOUT,0904) 

DO 9006 I6J,4 

0906 WRITE(KQUT,990l ) ( F ( I , J ) , Js 1 , NET A ) 

DO 0905 K8NUL,NSPM1 
DO 9005 I8i,3 

0905 WRITE(KOUT,0901 ) ( 3P ( I , J , K ) , J» 1 , NET A ) 

9903 CONTINUE 

RETURN 

END 
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B30A, ERP 


1 . 
2^ 

3. 

a.' 

5. 

7. 

fl.‘ 

% 

in. 

IR. 

13, 

15, 

16. 
1’,' 
IB. 

I’.' 

20, 

21 . 

22, 

V' 

26. 

27. 

2fl. 

2<». 


function ERPm 
TXSb2.*X*X 
lFo<-2.i 5.5,15 
5 RBO.0 
PNasi 

00 10 1b 1,15 
RSI ,-R*TXS/FN 
10 FNbFN-2, 

ERPbR*X 

RETURN 

C SEMI convergent SERIES FOR LARGE X — INCLUDE 0 TO RAT OF 
C smallest TERM AND RAT TO 1, OF PRIOR TERM IF SMALLEST TERM IS 

C SEVENTH OR PRIOR TERM. 

15 INb(TXS-1.)/2. 

RATb0.6§ 

lF(IN-6) 20,20,25 
20 FNaINTlN-1 

RB (TXS-FN-2,)/2.*RAT 
rsr/TX8*(FNt2. ) + R/RAT-'R*RaT 
GO TO 30 
25 INsT 
Rai.O 
FNalJ 

30 DO 35 iBl.IN 
RBI .♦R«FN/TXS 
35 FNaFN-2. 

ERPsR/(2.*X) 

RETURN 

end 


B30B, ETIHEF 


1 

2 

3 

a 

5 

6 
7 

n 


SUBROUTINE ETIMEF(T) 
CALL SECONO(T) 

TST-TZ 

RETURN 

entry etime 

call SECONOCTZi 

return 

end 
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05OC 

SUBROUTINE L I 40 ( L t I , J , C ) 

C0MM0N/ERRC0M/FLE( «J).ClE( 30).SPLECJ0, b),EL4(251),FLEM,GLEH 
1,SPLEM( 6),ELM(1 UV,ELMH,IflM,ICi.M,I 3PUM( 6),NELM, lVHM,DFL(«3i 

2, DGL(30),DSPLt30, 6 ) , FNUE ( 18) ,CNLE ( 15 ) , 3PNLE ( 15, 6>,ENLna3) 

3, FNLEM,GNtEM,SPNLEM( 6), ENLMM , IFNLM ignlm , I SPNlm ( 6) 

a,NENLM»INLMM,OFNL(18),OGNL(15).OSPNL(15, 6),t)RNL( Si 

CONMON/ETACOM/ETA(15),OETA(15),DSQaa),DCUCla).B1 MU),82nu) 
1,LAR(123),B41 (43. 18),BA2(30,15) 

C0MM0N/N0NC0M/AM(123, 123),DVnL(123),TCW, 

1VLNKW,DlPH( 7),DlPK( b, 7),0THW,0TKW( 6),FlUXJB( 7) 
COMMON/INTCOM/KR(20) ,KIN,kOUT,MaT1I,MAT2I,M4T1J.MAT2J,NETA 
IF(L) 1,3,3 

1 £NL(n B ENLU) -C*FLE(J) 

DO 2 K«1,MATIJ 

2 AM(l,K)aAM(l,K)-C*aAl (J,K) 

RETURN 

5 ENL(I)BENL(n-C*SPLF{J.L) 

KKbl*MAT2J+MAT1 J 
DO 4 K»1,MAT2J 
KKsKK+1 

4 AMC!,KK)aAM(I,KK)-C*BA2(J,K) 

RETURN 

end 


B30D, TLEFT 


SUBROUTINE TLEPT(l) ~ 

ISIOOOOOO 

RETURN 

END 


B30E, DATE 


subroutine DATE(I.J) 

return 

ENO 


B30F. TOD 


SUBROUTINE T0D(I,J) 

return 

end 


B30G, SECOND 


subroutine SECONOCT) 

return 

end 



B36A, OGLE 


1, 





SUBROUTINE OGLE (N. X am.PRH jOPOlM, NUMX , X , P, EM) 

3. 


OIMENSION X4M(l),X{l),P(n,EM(l),PRMCl),0P0lM(l) 

", 


XDlFaX(NUMX)-Xn) 

5, 


ISol 

6. 

2 

00 600 J»1,N 

7. 


XAaXAH( J) 


59 

I0»1 



iTal 

Irt. 

61 

IF(XDIF) 72,60,71 


71 

lP(XA«X(IS)} 62,63^64 

1?. 

72 

IP(X(I3)-XA) 62,63,64 

13, 

62 

IF(IS-1)671,671,68 

1". 

68 

IS«I3-1 

15, 


ITs2 

16. 


GO TO (61, 66), 10 

1^, 

672 

iSaNUMX 

Ifl. 

671 

lalS 

I’, 


HsO. 



OPOIaEM(I) 

21-( 


GO TO 67 

22, 

63 

PRaP(IS) 

23. 


DPDIaEMdS) 

2". 


GO TO 601 

25. ■ 

64 

18«1S+1 

26. 


IF(1S-NUMX)69,69 ,672 

2’, 

69 

IO«2 

2fl. 


GO TO (61»65)*IT 

S'*,' 

65 

I 80 IS -1 

30. 

66 

lalS 

51 , 


G8((CP(i+i)-P(i))/(xn*i)-xn)))-EM(i))/(X(i*n- 

32. 


FB( ( (EM(I+1)-EM(I))/(X(1t1)-X(I)))-2,*G)/(X(T*1) 

33, 


H»(F*(Xi-X(I+l))+Gj*(XA-X(I)) 

34. 


DPDlalH + HfEMtDTFaCXA-XdiiAtXA-Xd)) ) 

35. 

67 

PRa(H+EMd))*(XA-Xd ))»P(i) 

36. 

601 

CONTINUE 

37. 


OPDlM(J)aOPOI 

3«. 


PRM(J)aPR 

3", 

600 

CONTINUE 

an. 

60 

CONTINUE 

"1, 

4 

RETURN 

"2. 


END 
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B50A, FILQ3 


2^ 

5. 

b. 

T, 

fi. 

u. 

>^^ 

>3, 

tfl, 

J5, 

16. 

17. 

Ifl, 

1«>. 

20.' 

21. 

22. 

23. 

2 «. 

25. 

2b. 

2% 

2fl. 

2'>. 

SO. 

31. 

32. 

33. 
3«. 
35. 
3b. 

3’; 

3fl, 

S'*. 

uo. 

"1-. 

«2. 

«3. 

«5. 

«b. 

U7. 

50. 


subroutine FIL 03 

C general least square curve fit program (FISlEQ) /Rmk 

COMMON/FITCOM/NC,NDP,NCT,NAUC,JCT(«5I,S{«5),T{U5i.ETAMn5i 
I ,OUM(abj 

COMMON/rSLCOM/X{a5j,V(85),PNE«(I5).N,ALPH(10P),AUCnsj. 
*C<lOOi,NOP3»NL,NLF,NHl,NCP,NCPC,l, J,FXY(85) 
COMMON/NONCOM/AM(I23, 123) 

COMmON/TRTCOM/INTL.INTM# InTKN 
dimension A( 100il00),F(Sb,85 ) 
dimension G(«)fH(«) 

equivalence (AM( l. 1),A(1,))), (AMn,83)*F(l ,1 )) 

intl*o 

intm»o 

INTKNaO 

N«0 

27DO an Ial,NC 

cch«o 

DO ua Jal,l 
aa A(J,I)=0. 

NCPC«NC+NCT 
NCPbNC +1 
00 S2V lal.NCPC 
DO 321 JaNCP.NCPC 
321 A(I,J)»0. 

NCPoNC 

33b DO 34 I«1,NCT 
NCPsNCPfl 
C(NCP)80, 

lF(jCT(n)332,332,333 

332 N ■ N ♦ 1 

call FUNXS (C(nCP), 4(1 ,NCp), 3(I).T(I),0 ,H, Jl.’JU) 

GO TO 30 

333 call TRINT ( JCT (I ) , C (NCP) , A ( 1 , nCP ) , 3 ( I) » T ( I) ) 

30 continue 

NHIaNDP 

abb DO «7 Kai.NHI 
N8N+1 

CALL FUNXS (FXT(K),F(1 ,K),X(K),y(K),G,H, JL, JU) 

DO 07 ItJL.JU 
FlKaFCI.K) 

C(I j*CmbFXY(K)*FIK 
DO 07 JaJL.I 

47 AU,n8A(J,I)+FIK*F(J,K) 

OR DO 50 Jal,NC 
jPaj+1 

DO 50 laJP.NCPC 
50 A(I.J)BA(J,n 
N8NCPC 

return 

end 
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PARTI 



B50B, FILQ5 



15.’ 


16 

17 

Ifl 

l«» 

20 

21 

22 

23 

2a 

25 

26 
27 
2B 
20 


m 




SUBOOUTINe FILQS 

c general least square curve Fit program (fislo) / rmk part a 
COMMON/FITCOM/NC.NDP,NCT,nAUC/ JCT(« 5>/8ta5),Tf^)5),ETANn'?j 
l,0UMPCl5),PPNEW(l5),PALPH,PPPNEW(15j 

C0MM0N/F8lC 0M/X(85), V(85),PNEW(15),Nf ALPHClOO j, AUCdS), 
*C(100),NDPS,NL,NLF,NHI,NCP,NCPC, I, J,PXV(flS) 

COMMON/ 1 NTCOM/lDUMl ( 20 ) , K IN, KOUT . I0UM4 ( a ) , NET A , IDUM3 { 5 ) , NSP . NSPM 1 , 

llOUMSrS), KAPPA 
COMMON/NONCOM/AMa23,123) 
dimension AtlOO, 100),F(S6,85) 
dimension G(«),H(ai 

equivalence (AM(1>1).A(1,i)),CAm( 1,83),F(1. ih 

DO 70 Ial,NETA 

GXVbO. 

gpxyoo.o 

GPPXYaO.O 

CALL FUNXS(FV,F(l.n.ETAN(n,0.0,G,H,JL,JU) 

KSO 

63 DO 64 JBJL.JU 
KBK + l 

GPXYBGPXV + G(Ki<*ALPH(J) 

GPPXYacPPXY + H(K)<rALPHCJ) 

6<1 GXYbGXY + F(J,II*ALPH(J) 

PNEWdjsGXY 
PPNEWdjaGPXY 
PPPNEWdiaGPPXY 
70 CONTINUE 
return 
END 
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850C, FINEQ 




2 . 

5. 



SUBROUTINE FINEQ(N) 

COMMON/FSLCOM/OUMl (186)»X(1OO),DUM2C15)»0C 100) 
COMMON/NONCOM/AM( 123,123) 

DIMENSION A(iOO,loO) 

DIMENSION D(100)»IP(100) 
equivalence (A,AH), (D,AM(i, 122)) 
too F0RMAT(25H18INGULAR, ..... STOP) 


«. C 

0. C LU DECOMP, 


10, 

C 



n. 



DO 12 Kal ,N 

12. 



DO 1 lBi,N 

13. 


1 

0(I)BA(I,K) 

1". 



KMbK-1 

15. 



IF(KM) 5,5,2 

16. 


2 

DO 4 Jbi,kM 

IT, 



IT«IP(J) 

Ifl. 



A(J,K)sD(IT) 

!«>. 



D(lT)aO(J) 

20, 



jPaJ*l 

2N 



DTaA(J,K) 

22, 



DO J LaJP,N 

23. 


3 

D(L)aD(L)-A(L. J)*OT 

2", 


4 

CONTINUE 

25. 



IF(K-N) 5,11,11 

26, 


5 

L»0 

27, 



CTaO. 

2fl. 



DO 7 IbK,N 

2P. 



OTaABSCOd)) 

30. 



IF(CT-DT) 6*7,7 

11, 


6 

L = I 

32. 



CTaOT 

33, 


7 

CONTINUE 

1". 



IF(L) 8 , 8,9 

35. 


A 

WRITE(6,100) 

36, 



STOP 

it' 


9 

lP(K)aL 

3fl, 



CTsD(L) 

S'*, 



A(M,K)aCT 




0(L)aD(K) 

«1, 



KPsk*1 




DO 10 IaKP,N 

«3: 


10 

ACI,K)80(I)/CT 

au,' 



GO TO 12 

«5. 


11 

IP(N)3N 

46, 



A(N,N)aD(N) 

47. 


12 

CONTINUE 

4fl, 

C 



49. 

C 

FORWARD elimination 

5«, 

C 



51. 



DO 13 l3l,N 

52. 


13 

odiasn) 

51, 



DO 15 Ial,N 

5«, 



iTalPCI) 

55. 



BdioDCIT) 

56, 



DdT)30d) 

5T, 



IPPaltl 

5fl. 



DO J4 JaIPP,N 

5«>, 


14 

DtJ)aD(J)-A(J,I)*Bdi 

60. 


15 

CONTINUE 

61 . 

C 
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B50C. FINEQ 



C BACK SUBSTITUTION 


C 

64: 

X(Ni38(N)/A(N,N) 

65. 

DO 17 I»2,N 

6<,, 

JBN+l-I 


JPbJ+1 

68. 

CTbO. 


DO 16 KbJP.N 

TO. 

16 CTsCT+A(J,kJ*XCK j 


17 XCjiB(B(J)-CT)/A(J, J) 

T2. 

RETURN 

73. 

END 


B50D, FISLEQ 


1. 

2 . 

5. 

< 

5. 

11 . 

12 . 


SUBROUTINE FISLEQ 

C general least square curve fit program (FISlQ) 

COMMQN/FITCOM/NC,NOP,NCT,NAUC»JCT(aS j,S(a5),T(U 
C0MM0N/F8LC0M/X(853 , Y(85),PNEW(15j,N,ALPHn00), 
*C(100)>NOPS«NL«NLF.NHI*NCP>NCPC.I, J.FXY(8S) 

DO 314 I>t«NAUC 
?1« AUC(n»ETAN(I*t) 
call FILQ3 
call FInEQ(N) 
call FIlOS 

RETURN 

end 


i 




/ RMK 

5i,ETANti5) 

AUC(IS). 
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B50E, FUNXS 


1 . 

2, 

3. 

«. 

5, 

h. 

«. 

10 , 

11, 

12 , 

13. 

1«. 

15, 

I#., 

W. 

l".‘ 

1^ 

20 . 

21, 

22 . 

23. 

25. 

26. 
27, 
2R, 
2 <». 
30, 
31 . 

32. 

33, 
3U. 

35. 

36, 
3T. 
35. 

3<», 

UO. 

«1, 

a2. 

as; 

aa. 

«5; 

46. 

U7. 


SO.' 
5) . 


SUBROUTINE PUNXS (F XT , F , X , Y , c. H , JL . JU ) 

COMMON/FITCOM/NC 

COMMON/F8LCOM/OUM(266).AUc(15) 

COMMON/NETCOM/NET4HI,NETAm2,NETAM3 

COMmON/RFTCOM/OUMI ( 15i*KRiO 

DIMENSION FCl).0(l)/H(n 

DO 15 iBljNC 

15 FtijaO.O 
FXVsV 

DO 5 Isl,NETAM2 
IF (AUC(I) .GT.X) GO TO 10 
5 CONTINUE 

C evaluates FUNCTION COEFF IN FjnAL CURVE SEGMENT 
JsJ*NETAM2 
IF(KR10-1)22,21,20 

20 F(J+h«X*X 
FCJ+2)«X 
FCJ+3)ai,o 
G(l)a2.0*X 
G(2)»1.0 
GfSjaO.O 
H(1)b2.0 
H(2)b0.0 
H(3)a0,0 
JLbJ+ 1 
JUaj+3 
RETURN 

22 jBi(*NETAM2 

21 F(J + 1 )aj(»x*X 

F(Jf2)aX*X 

F(Ja 3 )b)( 

FU + «)al.O 

G(1)b3.0*X*X 

G{2)b2,o*X 

G(3)al.O 

GCajaO.O 

HClja6,0*X 

H(2)=2.0 

H(3)b0.0 

H(a)a0.0 

JLaJ^l 

JUBj+a 

RETURN 

C evaluates FUNCTION COEFF IN ALL BUT FINAL CURVE SEGMENT 

10 rF(KR10-l)l2,ll,ll 

11 jB3*(i-n 
GO TO 20 

C evaluates function COEFF FOR FIRST NETAMl CUBICS 

12 J8a*(i-1) » 

GO TO 21 

end 
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B50F, POINTS 


■ k' 

5. 

7. 

", 

10 . 

11 . 

la. 
IS. 

15. 

lb. ’ 
17. 
1 ", 

ao. 

2 », 

22 , 

as. 

2H. 

25. 

ah. 

27^ 

2 ", 

a**. 

3o; 

31. 

3a. 

33; 

з а. 

35.’ 

зб. 

3’, 

3 ", 

3’, 

an, 

«). 

“ 2 , 

"3. 

aa, 

«5. 

U6.' 

U9. 

50. 

51. ’ 
sa. 

53;. 

5“, 

55, 

56. 

i:; 

5 *>, 

60, 

61. 


subroutine POINTS(JN) 

COMMONI/ETACOM/ET4n5),OET4 (15) 

COMMON/FITCOM/NC,NOP,NCT,NAUC,JCT(a5),3(a5),T(a5),ET4N(i5), 

*PC15),PP(l5i.PALPH.PPP(l5) 

COMMON/lNTCOM/lOUHl (20),KlN,KOUT.IDUHa(a) ,NETA;inUM2(5),NSP,NSPMl , 
11DUM3C5), KAPPA 

CONMON/NETCOM/NETAHI ,NETAHa,NETAN3 
C0MM0N/F8LC0M/X(85) ,Y(85),PNEW(15) 

COMMON/RFTCOM/F2FIX(lS).KR10*NPMl,NPOINT,OUm C34) .NETAL.K APPAL 
DIMENSION A(15), 8(15), C(IS), 0(15) 

DIMENSION PPIX(IS) 

C THIS block calculates the polynomial coefficients of the existing 

C CURVES. P REPRESENTS THE INDEPENDENT VARIABLES U/UE,H,ANO SP.’ PP 

C represents the derivatives of these quantities WITH respect to ETA. 

C NOTE that this option ONLV ALLOWS FOR QUADRATIC SOLUTIONS FOR THE 
c first netah 2 curve segments, 

NLMlaNETAL-1 
NLM2»NETAL-2 
DO 110 IBI.NETA . 

TlO PFIX(l)aF2FlX(I)*PALPH 
IF(KR10.EQ,0)GO TO 401 
DO aOO Nal,NLM2 

C QUADRATIC coefficients FOR THE FIRST NETAM2 CURVE SEGMENTS 
A(Nja(p(NAl )-P(N)-0ETA(N)*PP(N))/(0ETA(N)*DETA(N) ) 
B(N)8PP(N)-2.0*A(N)*ETA(N) 

POO C(N)bP(N)«(A(N)*ETA(N)*B(N))*ETA(N) 

NaNLMl 
GO TO 425 

C CUBIC COEFFICIENTS FOR The FIRST NETAMp CURVE SEGMENTS 

401 DO 402 Nal,NLM2 

A(N)a(PP(N+l)+PP(N)-2,*(P(N+l)-P(N))/0ETA(N))/(DETA(N)«DETA(N)) 
B(N)8(PP(N+1)-PP(N)-3,*A(N)*(ETA(N+1 )aETA(N+i ).ETA(N)*ETA(N)))/( 2. 
lADETA(Ni) 

C(N)aPP(N+l )*ET4(N+1 )a(PP(N)«PP(N+iJ )/0ETA(NU3.*A(N)*ETA(N)*ETA(N 
Ul) 

402 D(N)ap(N)-( (A( n)*ETA(N)T8(N))*ETA(N)*C(N) )*ETA(N) 

NaNLMl 

GO TO 425 

425 IF(KR10-1 1202,202,201 

C QUADRATIC coefficients FOR THE LAST CURVE SEGMENT 
?01 A(N)a(P(Ntl i-P(N)-OETA(N)*PP(N))/(DETA(N)*DETA(N)) 
B(n)8PP(N)-2,0*A(N)*ETA(N) 

C(N)aP(N)-(A(Ni*ETA(N)+B(N))*ETA(N) 

GO TO 204 

C CUBIC COEFFICIENTS FOR THE LAST CURVE SEGMENT 

P02 A(Nja(PP(N)-2,0»(P(N+l)-P(N))/OETA(N)i/(DETAfN)»DETA(N) ) 
B(N)B-0.5A(PP(Ni/DETA{N)A5,0*A(N)*(ETA(N*l )tETA(N) )) 
C(N)8(3.0 aA(N)*ETA(N)+PP(n)/DETA(N))*ETA(N+ 1) 
D(N)aP(N)«((A(N)»eTA(N)*B(N))*ETA(N)'»C(N) )*ETA(N) 

GO TO 20« 

P04 CONTINUE 

C this BLOCK EVALUATES THE NEW ETA VALUES BASED UPON PFIX 
IF(JN-l)S02,502,S03 
S02 NSNb2 
C LOOP ON PFIX 

DO 250 Mb2,NETAMI 
IF(M«KAPPA)249,248,249 
?48 ETAN(M)bETA(KAPPAL) 

GO TO 250 
P49 nSbnSN 

C LOOP ON P TO LOCATE THE. CURVE SEGMENT IN WHICH PFIX IS LOCATED 
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C CHECK FOR ALC CUBIC CURVE -FITS 

if(krio.eq.o)co to «oa 

DO 255 N»N3,NLMl 

IF (PF I 251,252,253 

c computation for The nek eta values on a quadratic segment 
? si nn*n-i 

ETAN(M)«(-B{NNUSQRT(B(NN)*B(NN)-(j.o*A(NN)*(Cf NN)-PFIX(h) ) i ) 
1/(2.0*A(NN)) 

NSNaN 
GO TO 250 

c computation for The new eta where pfixsp 

?52 ETAN(M)bETA(N) 

NSNaN 
GO TO 250 

C‘ the last curve segment is evaluated here for the new eta VAIUFS 
?53 CONTINUE 
CO TO «13 

C COMPUTATIQN'OF NEW ETA VALUES ON A CUBIC SEGMENT 
aou DO a05 nbnS,nlmi 

IF(pFIX(M)-P(N))Un,«12,405 
U12 ETAN(mi»eta(N) 

. NSNsN 
GO TO 250 
all nnjn-1 

ANFbA(NN) 

BNFaB(NN) 

CNFtC(NN) 

ONF«D(NNl 

PFM«PFIX(H) 

ETAFbETA(NN) 

a06 ETAFaETAFA0.02*DETA(NN) 

POAa((ANFi»CTAF*eNF)*ETAF + CNF)*£TAF»0NF 
IF(POA-PFM)O07,«08,40'» 
aOT POBaPOA 

CO TO 406 . 

aOR ETAN{M)BETAP-((POA-PFM)/(pOA-POB)i*o.02»OETA(NN) 

NSNaN 
GO TO 250 

C COMPUTATION FOR THE NEW ETA WHERE PFIXaP 

aOB ETAN(H)bETAF 
NSNbN 
GO TO 250 
a05 CONTINUE 

413 IF(KR10-I)25e,258,257 
C POR A QUADRATIC FINAL SEGMENT-NEW ETA 

P57 ETAN(M)B(-e(NLKn*SQRT(B(NLMn*B(NLMn-4,0*A (Nlmi )*tC(NLMn-PFIX(M 
iini/(a.o*A(NLMin 
NbNLMI 
CO TO 250 

C FOR A CUBIC FINAL segment-new ETA 
?58 NbNLMI 
ANFeA(N) 

BNFbBIN) 

CNFbCIN) 

ONFbOCNI 

PFMaPFIXiM) 

ETAFaETA(N) 

?85 ETAFaETAF+0.02*DETA(N) 

POArC{ANFBETAF+SNF)*ET4F+CNF)*ETAEtONF 
IF(POA-PFM)280,256,286 
280 POBaPOA 
GO TO 285 

388 ETaN(M)bETAF-( (POA-PFM)/(PO 4-POB))«0.02»OETAf N) 

GO TO 250 
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1 2h . 
12T. 
I2fl^ 
120 . 
130^ 

131. 

132. 

133. 
13a, 
135, 
13<>. 
137, 
13fl, 
130. 
lao,’ 
lai, 
las, 
las. 
laa, 
las. 
1 « 6 , 
ia7. 
lOfl, 
lao. 

150, 

151. 
15S, 
153, 
iSa, 
155. 
150, 
157, 
I5fl, 
150, 
160. 
161, 
162, 
163. 
160. 

165, 

166. 
167, 
16fl. 
160 

170. 

171. 

172, 

173, 

174. 

175, 
176 
177. 
17S. 
170, 
180. 
181 . 
182, 

183, 

184, 

185, 

186, 
187. 
188 ■ 
186. 


>56 ETAN(Mj«ETAF 
>50 CONTINUE 

ETAN(NETA)»ETA(NETALi 
c evaluation of curve fit constraints 

C THE unchanging CONSTRAINTS ARE EVALUATED HERE ONLY ONCE 
NFINBNETAM2 
NFINRbO 
NFINTbO 

1F(KR10.EQ,0 )NFINTa7 

IF(KR10.EO.O)NFINR»6 

1F(KR10.E0.1)NF1NbNETAH3 

DO 781 lCal,NFIN 

ICPbIC+1 

JCT(IC)bUNFINT 

S{1C)bETAN(ICP) 

TdCiBO.O 

IF(KRIO.GT.O) CO TO 785 
ICCPb2*NETAM2+IC 
JCTCICCPJbU 
S(ICCP)»ETAN(ICP) 

TdCCPjaO.O 
>85 ICCBIC+NETAH2 

jCT(lCC)B3fNFlNR 
8 (ICCJbETAN(1CP) 
t8i TdCCiBO.O 

IFlKRlO.NE.li GO TO 782 
ICBNETAM2 

ICPbIC+T 

jCT(ICiB2 

Stic JBETANdCP) 

TCICioQ.O 

ICbIC+IC 

JCT(IC)b«. 

S(IC)BETANtlCP) 

TtlCJoO.O 
782 CONTINUE 

C the changing CONSTRAINTS ARC EVALUATED HERE FOR EACH VARIABLE 
503 ICS57NETAM2+1 

IF(KRIO.NE.O) IC62*NETAM2+1 

JCT(IC)bO 

3(IC)>0.0 

TflciaPtn 

ICalC+l 

NFINVbO 

IFtKRlO.EQ.OJNFINVaO 

JCT(IC)b67NFINV 

sciciso.o 

TtICjaPPtn 

ICbIC+1 

JCTtICjaO 

S(IC)3ETA(NETAL j 

T(IC)=P(NETAL1 

iCalCTl 

jCTtlCisS 

IF(KR10.EO,2)GO TO 400 
StlCiaCTAtNETAL) 

TtlCiaPP(NETAL) 

ICbIC+ 1 
aOO JCTtlOsO 

S(IC)bETA(KAPPAL) 

T(IC)bP(KAPPAL) 

C this block CREATES AN ARRAY OF POINTS TO BE USED IN FISLEQ TO GENERATE 
C A NEW SET OF CURVES BASED UPON THE NEW ETA VALUES 
J«2 
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l"»0. 



K»l 

I’l-l 



DO 260 Mbi.NETAMj 

192. 

C 

THE 

: CURVE segment is divided Into 

195 ; 



DE«(ETAN(M*n-ET4N(M))/NP0lNT 

19fl- 



EbETAN(M) 

195, 



DO 261 L"1,NP01NT 

196. 


265 

IF(E-ETA(J))262.263.264 

19T, 


262 

JJ«J-1 

19fl. 

C 

I4MEN J IS equal to NETALi A TEST 

19R. 

C 

The 

: LAST SEGMENT IS A CUBIC OR A i 

200. 



IFCKRlO.EQ.Oi GO TO a60 

20) ; 



IFCJ.NE.NfTAL j GO TO 267 

202. 


460 

IF(KRlO-l)^66,26b,267 

203, 


267 

Y(K)»(A(JJ)*E+8{JJ)i*E+C(JJ) 

2 oa, 



X(Ki»E 

205, 



K«K + 1 

206. 



GO TO 261 

207, 


266 

T(Ki»((AtJJ)*E+B(JJ)i*E*C(JJi) 

2 on. 



X(K)sE 

20R, 



KBK^l 

210. 



GO TO 261 

21), 


263 

Y(K)aP(ji 

212, 



X{K)bE 

213. 



K*Kfl 

214, 



JsJtl 

215. 



GO TO 261 

216, 


264 

JeJ+l 

217. 



GO TO 265 

2lfl, 


261 

E«E+DE 

219, 


260 

CONTINUE 

220, 



Y(K)«P(NETaL) 

22 r. 



X(Kj«ETA(NETAL) 

222, 



KJ«NP0INT*NETAM1+1 

225. 



call EISLEO 

224, 



DO 270 1«1,NETA 

225. 


270 

p(n«PNEW(ii 

226, 



RETURN 

227. 



END 


TEST 13 performed Tq DETERMINE WHETHER 
QUADRATIC FUNCTION 
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1, 

2, 

3. 

a. 


fl. 

Irt, 

11 , 

12 . 

13. 

IS 

15. 

16 . 
IS 
IS 
!«. 
2S‘ 
21 . 
22. 

23. ‘ 

24. 

25. 

26. 
27. 
26, 
2S. 

30. 

31. 
32: 

33. 

3S 

35. 

36. 

37. 

3S 

34. 
40, 
41 . 
42. 
4 3.' 

44. 

45. 
46: 

“S 

46. 
44, 

50, 

51, 

52, 

53, 

54, 

55, 

56, 

57, 

58, * 

5S 

60. 

61. 


SUBROUTINE REFIT 
COMHON/ET4COM/ETA(l5)fOETA(lS) 

COMMON/INTCOM/IOUMI (20)»KiN,koUT. IDUM 4(4),NETA, rnUM2{5),N3P,NSPMl , 
1I0UM3(5), KAPPA 

COMmON/VARCOM/F t 4,15), G( 3,15), SP (3, 15,7), ALPH 
COMMON/F1TCOM/NC,NOP,NCT,N4UC, JCT(45),S(45),T(45),FT4N(15), 
*P(15),PP(15),PAUPH,PPP(15) 

COMMON/RFTCOH/F2FIKn5),KRlO,NPMl,NPOINT,DUMi ( 34 ) , NETiL , K4PP*L 
COMMOM/NETCOm/NETAhI ,NETAm2,nETAM3 

COMMON/UNICdM/UCO,UCe,UCL.UCM,UCP,UCR,UCS,UCT,UCV, ITOK 
DIMENSION I3PWR(S) 

2fl00 format (///,5X, 12HREFIT CALLED,///) 

WRITE (KOUT,2000) 

2001 format (2X,2H I , 3X , 6HET A ( I ) , 5X,6H U/UE , 5X , 6HG (1 , I) , 2X , fl (1 X , 
17H3P(l,l,,n,lH),lX),//) 

2003 FORMAT (2X,2H I , 3X, 6HETA ( I ) ,5X,6HF(3» 1 ) , SX, 6HG (2, I) , 2X, sY 1 X, 
17H3P(2,I,,Il,lH),lXj,//) 

2004 FORMAT (2X.2H 1 , 3X,6hETA ( j ) ,SX,6HF (4, 1 ) ,5X , 6HG ( 3. 1 ) . 2X , e ( 1 X , 
17H3P(3,I,,I1,1H),IX),//) 

2002 format (2X,I2,11(IPE11.3)) 
pALPHaALPH 

C REFIT constants ARE EVALUATED HERE 
NETaMIsnETA- 1 
NETAM2aNETA-2 
NETaM3*NETA-3 
IFIKR10-1)774,778,777 

777 nC«3*NETAMI 
NCT8NETAM2*244 
GO TO 780 

778 NCa3*NETAMl+l 
NCTsNETAM2*2*5 
GO TO 780 

t79 nCs4*NETAMI 
NCTsNETaM2*3+5 
IF(NP0INT.GT.6)NP0INTo 6 
lF(NPOINT.EQ.O)NPOINTaS 
xBo ndp»npqint*netamui 
npmi*npoint-i 

NAUC»NETAM2 
DO 761 iBl , 15 
P(I)bF(2,I) 

781 PP(I)bFC3,I) 

CALL POINTS(l) 

DO 782 I»1,15 
F(3,I)»PP(I) 

F(4,I)aPPP(I) 

782 F(2,I)«p{I) 

F(2, 1)«0.0 

DO 783 Ial,15 
PCI)aG(l,I) 

783 PP(I)aG(2,I) 

CALL POINTS(2) 

DO 704 181,15 
G(3, I)aPPP(l) 

G(2,I)a PP(l) 

784 GCl,I)aP(I) 

IF (NSPM1,EQ.0) GO TO 788 
DO 787 Jal,NSPMl 
DO 785 lal,15 
P(I)«3P(1, I, J) 

705 PP(I)aSP(2,I,J) 
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62, 


CALL POINTS (2) 

63. 


DO 786 lai,15 

6a. 


3P(2»I.J)o ppcn 

65.’ 


SP(3»IiJ)8PPP(I) 

66.' 

786 

SP(1»I, jjaPCIl 

67, 

787 

continue 

68, 

788 

CONTINUE 

6R. 

7OR 

OO 508 Ial,I5 

70. 

808 

ETA(I)8ETAN(I j 


71, 00 800 i«l,8 

73, flOO lapUHtljal 

75. WRITE (KOUT.SOOl) ISPWR 


7a, 00 801 I«1,NETA 

7?. URATaF(2. n/ALPH 


7A., GRATaGd.lj/UCE 

77. «01 WRITE(KOUT,2002) 1*ETa(I).URAT,GRAT, t SP (1 . 1 , J5 , Ja 1 , nSPMi ') 

78, ' return 

7R. £N0 
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1. 


subroutine ThINT U,G8TUV,G,S,T) 

?.■ 

C 

TRINT converts the curve fit constraints into 

3, 

C 

UNKNOWN A'S 

4, 


dimension G(3) 

5. 


COMMON/RFTCOM/OUMl (15),KR10 



COMMON/FITCOM/NC 



C0MH0N/NETC0H/NETAM1,NETAH2,NETaMJ 

B. 


COMMON/TRTCOM/L*Mf KN 

4, 


GSTUVbO.O 



DO 10 KaltNC 

n. 


10 GCKlaO.O 

12. 

C 

OIJAD-Quao interior point match 

13.' 


GO TO (101, 102,103.104,105. 106,107, 106, 1 OR 



Toi L»Lt3 

1^. 


G(L«2)sS*S 

16. 


C(L-l)s3 

17.' 


G(L)al.O 

IB. 


G(L*1 )«-S*S 

I**.' 


C(L*2)a-S 

an; 


G(Lt3)a-t,0 

21, 


RETURN 

22. 

C 

QUAD-CUBIC INTERIOR POINT MATCH 

23, 


102 L»L+3 

2a. 


G(L-21as*S 

25.' 


G(L-l)aS 

26. 


Gdial.O 

27. 


G(L+1 ja-S*S*S 

2fl, 


G(1.t2)s-8*S 

2'», 


G(Lt3)3-8 

34, 


G(Lt4)a-t,o 

31. 


RETURN 

32, 

C 

quad-quad interior SCOPE match 

33. 


lOS MaMT3 

3a. 


G(M-2)42,0*S 

35, 


G(H-nal,0 

36. 


G(M+l)a«2.0*S 

3’,' 


G(Mt2)a-l,o 

3fl. 


RETURN 

3«». 

C 

quad-cubic INTERIOR SLOPE MATCH 

an. 


f04 MSH 43 

ai : 


G(M-2ia2,0*S 

42. 


G(M-n«t,0 

43. 


G(Mtl)4-5,0*S*S 

4U. 


G(Mt2)s.2.o*8 

43. 


C(M*3)s-l,0 

46, 


RETURN 

47: 

C 

final CUBIC 8L0PEa0L0 VALuE AT OUTER EDGE 

48.- 


i05 IF(KR10-l)21,20,20 

4Q^ 


. 20 JsNETAM2*3 

5n. 


GO TO 22 

5», 


21 J8NETAM2*4 

52. 


22 G(JTl )a3. 0*3*3 

S3.‘ 


C(J*2)a2,0*3 

54. 


G(J*31al,0 

55, 


return 

56. 

C 

INITIAL quad SLOPEa OLD VALUE AT INNER EDGE 

57, 


T06 GSTUVaT 

5fl. 


G(l)a2.0*S 

54. 


G(2)al,0 

60, 


RETURN 

61 . 

C 

ENTRY 107 IS NOT USED IN THIS VERSION 
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62. 

63. 

65. 

66 . 
67. 
6A. 
6Q, 
70. 

72. 

73. 

75. 

76. 

77. 
7fl. 
70. 
0n. 
81. 
82, 

83. 

84. 

85. 

86 . 

87. 

88 . 
80. 
Oft.- 

02 . 

OS. 


04. 

05. ' 

06. 


i07 return 

C CUBIC CUBIC INTERIOR POINT NATCH 
TO0 L8L+4 

G(L-3)aS*3«S 

G(L-2)aS*S 

G(L-n»S 

G(L)al.O 

G(L*1)b-3*S*S 

G(L*2)*-3aS 

G(Lt3)s-S 

G(LtO)s.l,0 

RETURN 

C CUBIC-CUBIC INTERIOR SLOPE HaTCH 
lOO MBHf4 

G(N-3)«3,*S*S 

CCM-2)«a.*S 

cCM-n»i.o 

G(M«na-3.*S*S 

G(M+2)b-2,*S 

G(M+3)s-1, 

RETURN 

c initial cubic-3Lopebolo Value at inner edge 

1 10 GSTUVeT 

G(1)s3.*s«3 

C(2)o2.*S 

CC3ial.O 

return 

C CUBIC-CUBIC interior SLOPE DERIVATIVE MATCHING 

Vll KN«KN+4 

G(KN-3ja6,*3 

0(KN-2)b2. 

G(KN*1)«-6.*S 

G(KN*2)b-2. 

RETURN 

end 
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4.4 FORTRAN VARIABLE LIST 


All of the Fortran variables are listed and defined in this section. The 
routines within which the variables are used, other than in a common block, are in- 
dicated beneath the definition of the variable (e.g., 08B, llA, where the numbers 
refer to the element number (B08B, BllA)). The variables are further identified 
in the right-hand column according to the following system: 

• An L or an L followed by a name indicates that the variable is local 
and used in many subroutines or is local to the subroutine named. 

•AC followed by a name indicates that the variable is in a. labeled common 
of that name. 

• An E followed by a name indicates that the variable is equivalenced to a 
variable in the named common block. 

In some cases the same quantity has different Fortran names in different subroutines. 
This only occurs for some varibable used in the chemistry routines (EQUIL, PROPS, 
THERM, MATER, KINET, CRECT, INPUT). In the definition of the variable name its 
other name is also used and identified in the following manner: 

• An asterisk (*) indicates that the variable is valid only in the chemis- 
try routines. 

• A plus (+) indicates that the variable is not valid in the chemistry 
routines. 

(For an example of the above, see FAMOA, MOA. FAMOA is valid only in the 
chemistry routines.) 

In the Fortran variables list, the subscripts have the following convention: 

I =1^^ nodal point or nodal segment 

J = species (molecular, atomic, ionic and condensed) 

K,KK = or element, base species, or related quantity 

L = L^^ streamwise station 

N,NN = Other meanings, defined as used 

Finally, variables referred to in the definitions are Fortran variable names 
except where specifically identified otherwise (e.g., in the definition of AM(N,NN), 
(BNL) is not a Fortran variable name but is defined in the text). Defining equations 
for certain variables have been collected and are given in Table 4-1. These equa- 
tions are referenced by number in the variables list. 
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TABLE 4-1. SUMMARY OF DEFINING EQUATIONS FOR FORTRAN VARIABLES 


)..ALP(K)=«k-X^Vj,nj 


where v.. is the number of atoms of element k in species j and n. is the number 

J K J 

of moles of species j. Then is the amount of element k and is a conserved 
quantity. 


2. ALPH = = n/n (see Equation (3-2)) 


3. D1 = d, = - 
1 




, D2 = dg = 0 (Equation (3-34)) 


where is given by Equation (5) 


4. 01 = d, = -2 -V 

1 


A- 2 


ril-1 il-r«,-2 


(Equation (3-35)) 


02 = d, = 2 ^ 
2 „A„ 


A-1 


11-2 t -1 £-2 
where is given by Equation (5) 

5. = In - In = In (Equation (3-36)) 


AL : BL 


AVL 


EL 

ANL'BNL 

IxJ 

AVNL 

0x1 

ENL 


(Equation (3-85)) 


Ixl 


7. BA1(N,NN) = ALpp‘* • BLpp where ALpp + BLpp are shown in Figure 3-1. 


8. BA2(N,NN) similar to BAl 

9. BETAM(L) = (Equation (3-13)) 

P p^u^ ^ 


1( 

These numbers correspond to the equation reference numbers used in the Fortran 
variables definitions. 
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d In u, 

10. BETAV(L) = By = 2 (Equation (3-12)) 

11. - DZ = = -T^ (Equation (3-34)) 

where given by Equation (5) 

12. DZ =.d„.= 2 (Equation (3-35) 

° il^a-l a^£-2 


13. 


where given by Equation (5) 

C3M(L) = 1/a* = — (Equation (3-19)) 


14 


. CPTIL = c„ = Z.C„ (Equation (2-21)) 

P I Pi 


C. pDu, 


15. CT = C^. used in; d 1 = . (Z. - K.) (Equation (2-20)) 


( d ^ (f.O- 

16. DZUEOGE . = »„ |f ; 


17. DLX2 = 


where A defined in Equation (5) 


3^4 

18. DMU4H = where given by Equation (2-21) 


3^4 

19. DMU4K = where u^ given by Equation (2-21) 
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20. duedge = 

21. DVNL(N) = [AVNLg]j EASE 


corrections to primary nonlinear variables, where AVNL, defined by Equation (3-90) 

a 


22. ETA(I) = 


. n - ^ Y 


pr'^dy (Equation (3-6)) 


23. FF(J) = F- used in = p-g- (Equation (2-19)) 


24. GAM = Y 


/3 In P\ _ f, , /3 lnW^ R f, /9 In Wi\ 

' \3 In ~ I' ^3 In ■ WlCp L' * \3 In T/p^ J 


1-1 


25. GAMF(« . v,„ • ^ ^ 


where given in Equation (35) 


a* 

26. GAMH(k) = 


where given in Equation (35) 


a*\ 3jJ 


j* 

27. GAMK(K,KK) = Y,, = 

•^k.kk '\k 3K|^ 


where given by Equation (35) 


28. HTIL = h = Z.h. (Equation (2-21)) 
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29. OMEGA = used in calculation of DEAR 

U,U5i7l 

30. SC(I) = Sc = (Equation (2-55)) 

pDp2 

31. SLAM(K) = ^ and = VLAM(J.K) = ^ 

j m 

where Yi- given by Equation (27) 

^mi 

32. VMUl = "S^i^i (Equation (2-21)) 

j 

(Note: y, is also used for the reference viscosity which is often y^(5). 

I 6 

used only in the transport properties formulation.) 

E 57i . X . 

(Equation (2-21)) 

i ’ 

34. VMU3 = U 3 =^,^ (Equation (2-21)) 
i ’ 

35. WALLJ(K) = [Z- + (Zj, - K^) y*] (Equation (3-24)) 

a^Sc ' ' 

36. WALLQ = q* (see Equation (3-22)) 

d 

37. XG(N) = XP^ , n = 1,2, 3, 4 ; P = 
where XP^ given by Equation (3-39) 


VMUl is 
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38- XG(5).y f.p,„ (E,„a„p„ (3,33„ 

1-1 


Where p = h 


39. XI(L) = c = 


^ “l'”o (Equation (3-6)) 

40. X"W . XP„ , „ . ,.3.3,V, p . 


Where XP„ 9,„e„ by £,„at1on (3-39) 


41. XH(5) . y f.pbp (Eppptipp 


i-1 


where p = f 


«• «"(".X).XP„.„.,,3,3,,, 


P = K, 


where XP^ given by Equation (3-39) 
43. XSP,5.K, . y p,p3p 


where p = k 


44. 3G»U) . 2P„ . „ . ,. 3 _ 3 _, ^ 


P ■ H, 


Where ZP^ given by Equation (3-45) 


i 
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45 . ZK(K) = 

46. ZM(N.I) 
where ZP 

r 

ZSP(N.i.k 

where ZP 
n 


■ £ “ki^i 


(Equation ( 2 - 21 )) 


( 


” “ ^»2,3,4 ; p = f* 

, given by Equation (3-45) 

^ " ^'’n * " = 1. 2.3.4 ; p = K 

k 

9i‘ven by Equation (3-45) 
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Variable 

Name 

Definition 

(Where Actively Used) 


Common 

Block 

A(N»NM) 

Error coefficient array in chemistry solution, n pertains 

To EQUATION WHEREAS NN PERTAINS To VARIABLE, 

(flSBtOPB, 1 lB,20A,a2A,2SA,28A,SoA) 

c 

EOTCOM 

Al (N) 

DUMMY variable, DEFINED IN INPUT 

L 

INPUT 

AA 

Product of pressure times molecolah weight, 

(20A,21A,22A.2SA,2SA,28A) 

c 

EOTCOM 

AB 

LOCALLY defined VARIABLE 

L 

SLOPQ 

A 68 

LOCALLY defined VARIABLE 

L 

SLOPQ 

ABECK 

A* IN bushnell-beckwith turbulent model ’ ' 

L 

TRMBL 

ABER 

absolute value OF RATIO OF A MaSS BALANCE ERROR TO LARGEST 
TpRM IN that mass BALANCE. 

L 

mater 

AB3VA 

absolute value of CONTRIBUTION OF A SPCIES TO A MASS 

Balance, 

L 

mater 

ABX 

absolute value of loo correction ON TEMPERATURE, . 

L 

CRECT 

AC 

locally defined variable 

L 

SLOPQ 

ACC 

locally defined variable 

L 

SLOPQ 

ACCP 

ACCELERATION PARAMETER, DEFINED IN OUTPUT 

L 

OUTPUT 

ACEB 

Aa in cebeci turbulent model 

L 

TRMBL 

ACH 

HaCH number 

L 

OUTPUT 

AOUM 

Coefficient in surface kinetic relation for material being 

CONSIOCREO UNDER KR(9) a 5 OR fc (SEE INPUT INSTRUCTIONS). 
•not USEp IN BLIHPJ* 

(nSC,09A) 

C 

CRBCOM 

AP 

locally defined variable 

L 

TRMBL 

AUP 

derivative OF LOG MOLECULAR WEIGHT WITH RESPECT To LOG 
Temperature at constant pressure. 

L 

EOUIt 

AtP(K) 

Input mass quantity of elements, eou) 

(oSC,20A,22A) 

C 

EOTCOM 

alph 

NORMALI2ING parameter FOR BOUNDARY LAYER NORMAL COORDINATE, 

See eo, ( 2 ) 

(n4A,058,06A,06A, 10A,1 lA, 19 A, 19T,29A,S0G) 

C 

VARCOM 

alpho 

OitALPM ♦ 02*HALPH where 01 and 02 ARE DEFINED BY E0(3) 
Or (4) 

(o5B,10A) 

C 

HISCOM 

ALPKNi 

Number of atoms of an element with atomic number jat(n) in 
A SPECIES. 

L 

INPUT 

ALSO 

Ai.PH**2 

L 

FIRSTG 

AM(N,NNi 

coefficients in the matrix defined as (BNL) in EQ( 6 ) 

C 

NONCOM 
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(o5B,05C,12B, 136, 19A, 19T,20A,22A,30C,50A,50B,50C) 



4H0A 

A) PHANUHESic Variable, fjbst oe three portioss of species 
name 

l 

INPUT 

AMO0 

aiphanuheric variable, Second of three portions of species 
Name. 

L 

INPUT 

AMOC 

A( phanumeric variable. Third of three portions of species 
Name. 

L 

INPUT 

AMU5 

Vn(J) * WTM(J)/(FF(J) * (W02»Vn(J) * FFIJ) * w07)) SUMMED 
OVER ALL SPECIES N *, 

L 

PROPS 

AP(N) 

Dummy variable equivalent TO TeMCOM 

L 

OUTPUT 

APE (N,NN) 

Saved array a(n.nn) during iversion. 

(20A) 

L 

EOUIL 

AR 

weighting factor in linearizing equilibrium aspect of 
ktneticallv controlled Mass balance. 

L 

KINFT 

AREA 

AREA PER UNIT mass flow during EXPANSION, 

L 

EOUIL 

AREA 

Wall area used in output 

L 

OUTPUT 

APPH 

elemental mass fraction of atom. 

L 

FOUU. 

ARPHM 

maximum contribution to calculation of an aRPH, 

L 

EQUIL 

ASTAR 

A* used in transport properties 

L 

PROPS 

A3U 

FtRST four characters of alphameric name of assigned 
surface species 

(rtSB,09A) 

C 

CR9C0M 

ATA(K) 

A|, Phanumeric variable, first of three portions of element 
Name, 

(1 lA,2aA) 

C 

EOPCOM 

AT0(K) 

alphanumeric variable, second of three portions of FLEMENT 
Name, 

(|U,2«A) 

C 

EOPCOM 

ATC(K) 

Ai , phanumeric Variable, third of three portions of element 
Name, 

(24A) 

c 

EOPCOM 

ATEMP 

absolute value of OTCMP 

L 

NONCFH 

B(n) 

Errors used with coefficients to yield corrections 
In chemistry iterations, identical to BBT, 

(20A,22A,23A.26A) 

C 

EOTCOM 

B(N) 

array of constants defined in blimp, identical to 8H«.’ 

(o2a,0«A,06A,27A) 

C 

INTCOM 


Saved Value of b(i) during inversion, equals surface 
equilibrium error for That option, 

(20A) 

L 

EOUIL 

Bid) 

0SQ(I»l)/6 

(i2B,27a) 

C 

ETACOM 


4-168 



B2(I) 


C ETACHm 


BaKNjNN) 

BA2(N,NN) 

84SM0L 

BBECK 

BOUM 


BETA 

BETAM(L) 

BETAV(l) 

BETH 

BE 

BJP 

BLOH 

8LOWCH 
BLOWPG 
BLQEQV 
8S(Nj , 
BSU 

BULP 

8UMEQV 

BUHP 

BUMP 


Dsa(I-l)/3 

(|3B,27a5 

MaTBIX (BLPF) PREMULTIPLIEO BV INVERSE OF (ALFF) (SEE 
EO (7),) 

(o5B,06A,2rA,29A,S0C) 

Matrix (blhh) or (blkk) premultiplied by inverse of (alhm) 

OR (AlKK), RESPECTIVELV, (SEE EQ (8),) 

Co5B,27A,2<»A,50C) 

MOLECULAR weight OF REFERENCE SPECIES IN DIFFUSION FACTOR 

Calculations 

(?«A,25A) 

Constant input as clnum in bushnell-beckwith model 
COEFFICIENT IN surface KINETIC RELATION FOR MATERIAL RFING 

Considered under kr(9) ■ s or 6 (see input instructions). 
*not used in blimpj* 

(n5C,09Aj 

BfTaM(L) 

(nSB/OBA.lOAfllA) 

streamwise pressure gradient Parameter defined by eq(9) 

(o 7A,ORB, lOA j 

streamwise velocity gradient parameter defined by CO(IO),' 

(n7A,ORB,10A) 

Derivative of log molecular weight with respect to log 
Pressure at constant temperature, 

locally defined variable 

nominally ZERO, SET TO I . TO PREVENT PREMATURE CONVERGENCE 

Blowing parameter based on gas mass flux given by 
Rh0VW(I3, n/(c3 * CH), 

( II A ) 

Char flux normalized by heat transfer coefficient 

Pyrolysis gas flux normalized by heat transfer coffftcient 

Variable eouivalenceo to blocom for dumping purposes 

Saved array of btnj during inversion 

sfcono Four characters of alphameric value of assigned 
Surface species 

(nSBfOPAj 
LOG (BUMP) 

Variable eouivalenceo to bumcom for dumping purposes 

Contribution to damping factor ease resulting from sign 
Chances in critical errors, 

(flSBi 

lO*Ai| • P, CONSTRAINTS ON corrections ARE RELAXED FOR 
Partial pressures below this value. 


C ETACOm 

C ETACOh 

C FOTCOM 

L TRMBL 
C CRP.COM 

C HISCOM 

C HISGOM 

C HISCOM 

L EOUU 

L TRMBL 
L NOHCFR 
C OUTCOM 

L OUTPUT 
L OUTPUT 
L DUMCOM 
L EOUIL 
C CRBCOM 

i. CRECT 
L DUMCOM 
C BUMCOM 

I CRFCT 
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C(K) 

gram atoms of element K in a molecule. 

(50A) 

L INPUT 

Cl 

1.' ♦ OZ NHEHE DZ IS DEFINED BY EO(ll) OB (12) 
(nSA.OSB.OSCiOBA, 10A> 1 1A,19A) 

C HISCOM 

C2 

-(U2*0Z) where OZ IS DEFINED RV EO(Il) OR (12) 
(OSB,10A,12B»13B) 

C MISCOM 

C5 

C3M(L) 

(OSB/OSC.OSA, lOA/1 lA/ 1BA.28A) 

C HISCOM 

C5MCL) 

•1/ALPHASTAR where ALPHASTAR IS the flux normalizing 
Parameter defined by eq (i3) 

(07A,10A,19T) 

C HISCOM. 

Ci| 

BETAV f 1 A OZ WHERE OZ IS DEFINED BY EO(II) OR (12) 
(flSB,lOA) 

C WJSCOM 

C5 

I.'/alph 

(nSB.oaA.13B) 

C CDECOM 

C6 

BETA A ALPH**2 
(0SB.08A. 128.138) 

C COECOM 

C7 

-rUE(L)**2)/((ALPH**2) *25036,5) 
(OSB. 19 a. 19T) 

C CCIECOM 

C6 

AlPHD/ALPH 
(058. 13B) 

c coecoM 

C9 

beta+i.aoz • alphd/alph 
( nSR.l2S.l3B) 

C COECOM 

Cio 

C7*F(2.I) 

(nS6.08A.12B.13B.l9A) 

C COECOM 

Cl OK 

Wall value of cio 

L Trhbl 

Cl 1 

defined in icoeff 
( nflA) 

C COECOM 

C12 

defined in icoeff 

(08A.12B.13B) 

C COECOM 

Cl3 

C7 • F(3.1) 
(oSS.OBA. 138. 19A) 

C COECOM 

Clil 

(1.*DZ)*F(l.I)+HF(I.5) 

(08A.12B.136) 

C COECOM 

CIS 

pr(I)-1 

(08A) 

C COECOM 

C16 

l.'/PRd) 

(08A) 

C COECOM 

C17 

iT/scd) 

(08A) 

C COECOM 

cie 

CTR*T(I) 

(ORA) 

C COECOM 
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Cl9 

CAPC(i)/(ALPH*scnn 

( 08 *i 

C COECOM 

C20 

CAPCn)/(ALPH*PR(in 

( 08 a) 

C COECOM 

C21 

OfFINED in icoeff 
(o8a) 

C COECOM 

Cii 

DfFINEO in icoeff 
( 08 a) 

C COECOM 

C23 

Defined in icoeff 
( 08 a) 

C COECOM 

C2a 

defined in icoeff 

(o6A) 

C COECOM 

C25 

defined in icoeff 

(o8A) 

C CGCCOM 

C26 

RHQE(L)/PHOm 

(n8A,i2B,lSa,i9A) 

C COECOM 

C27 

DRHnH 

(ii9T) 

C COECOM 

C2B 

defined in icoeff 

(o8A, 1«A. 19T) 

C COECOM 

C31 

defined in icoeff 
( 08 aJ 

C COECOM 

C32 

normalized diffusive heat Flux calculated in icoeff 
(05B,08A,I9A,19T) 

C COECOM 

CU3 

defined in icoeff 

(dRa, 12B, 13B). 

C COECOM 

C53 

RHOP(I)/RHOm 
(nflA, t2B, 13B, 19A1 

C COECOM 

C56 

Ff2,I)/ALPH 
(o8A, 12B« 13B, 19A) 

C COECOM 

C56W 

waul value of C56 

L TRMBI. 

C63 

defined in IMONE, 
(128) 

C COECOM 

C72 

defined in IMONE, 
(128, 13B) 

C COECOM 

C73 

(l.tDZ) * F(2,I) 
(nSAf l2B) 

C COECOM 

C7a 

defined in icoeff 
(08a,i28, J3B) 

C COECOM 

C75 

defined in icoeff 

(o8A, 12B, 13B) 

C COECOM 

C76 

(1 .aDZ) * G(t,I) ' 
(o8A, 12B, 13B) 

C COECOM 
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C77 

oeftned in icoeff 

. (O0A,12B,13B) 

c 

COECOM 

C7» 

defined in icoeff 
(o8A,12B,13B) 

c 

COECOM 

C79 

defined in icoeff 
(0«*) 

c 

COECOK 

CSO 

defined in IpOEFF 
(OSA, 12B, 13B) 

c 

COECOM 

C01 

defined in icoeff 

(nSA,l2B,13B) 

c 

COECOM 

CS2 

defined in icoeff 
( 08Ail2fl,i3B) 

c 

COECOM 

CSS 

dffineo in icoeff 

c 

COECOM 


(0SAil2B,13B) 



cea 

defined in ipOEFF 
(0SA«t2B,t3B) 

c 

COECOM 

css 

defined in icoeff 

(oSAi 

c 

COECOM 

C86 

Defined in icoeff 

(0SA,12B,13B) 

c 

COECOM 

CS7 

defined in icoeff 

(0aA,l2B,13B) 

c 

COECOM 

CSS 

dffined in icoeff 

(n8A,l2B.13B) 

c 

COECOM 

C89 

0E7A * (ALPH **2) * CRHOJ 

L 

lONLY 

C09 

«C3 » AlpH * VMUE(L) 

L 

OUTPUT 

CAPC(I) 

Product of density and viscosity normalized by edge value.* 

(06a,UA,1<IA,19A,2SA) 

c 

PRPCOM 

CASECNi 

aiphanumeric name of case. 

(o9A,118) 

c 

INTCOM 

CBAR 

value of the velocity ratio at boundary layer node kappa. 

(o5B,0TB,09A,29A) 

c 

INTCOM 

CBECK 

constant input 43 ELCON IN BUSnNEIL-BECKwI TW MODEl. 

L 

TRNBL 

CCEB 

Constant Input as elcon in cebeci model 

L 

TRMBL 

COUM 

Coefficient in surface kinetic relation for material being 
considered under KR(Pj ■ 5 OR 6 (SEE INPUT INSTRUCTIONS).' 
*nqt used in blihpj* 

(nSC,09A) 

c 

CRBCQM 

CF 

momentum transfer coefficient given by CAPC(1)/ALPH * 

VHgE(IS)/C89*F(3,n 

(llA) 

c 

OUTCOM 

CG(MS) 

Total enthalpy corresponding to 3f(ms) 

c 

EDGCOM 
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(ftSR,07Ai 


CGE 

USED IN energy layer 
•NOT USED IN 8LINPJ* 

option. 


c 

EOGCflM 

CGEP 

lisEO IN ENERGY LAYER 

•not used in blinpj^ 

OPTION. 


c 

EDGCOM 

CGP(M.S) 

Derivative of cg(ms) 

(O50|O7A) 

WITH 

respect to eta 


c 

EOGCOM 

CH 

Heat transfer coefficient 
Given by -wALLo/(C3^(Ga» 
(iiAj 

BASED ON enthalpy 
NETA)-G( i»nn 

potential. 

c 

outcom 

CHFLUX 

Less than zero value 
Surface chemistry 

implies presence of char elements in 

L 

Enuii. 

CIJ(K,KK) 

GRAM atom of element 

K IN 

BASE species KK. 


E 

EDPCDM 

CKl (K) 

calculated in icoeff 

(nSR,08A, 12B| 13R) 




C 

COECON 

Ck2(K) 

Set to 0 

(nSA, 12B, 13B) 




C 

COECON 

CK3(K) 

defined in icoeff 

(08A) 




C 

rnECPN 

Ck<i(K) 

defined in icoeff 

(OflA) 




C COECON 

Ck5(K) 

Set To o 

(fl8A, 12B, 138) 




c 

COECON 

Ck6(K) 

normalized elemental 
(o5B,08A,1RA,19T) 

mass 

Flux calculated in 

icoeff 

c 

COECOK 

CKPOO 

defined in icoeff 
Co8a, 12B) 




c 

COE COM 

CKl 1 (K) 

DrHOK(K) 

(19T) 




c 

COECON 

CK13(K) 

Defined in icoeff 

Cn8A,i2B) 




c 

COECON 

CKia(K) 

Set To o 
(08A,12B) 




c 

COECON 

CKl5(K) 

SfT to 0 
(a8Ai i2B) 




c 

COECON 

CK16CK j 

Set to 0 
(o8A, 13B) 




c 

COECON 

CKt7(K) 

defined in icoeff 

(nflA,i2B,13B) 




c 

COECON 

CK18(K) 

defined in icoeff 

(nSAaSB, 13B) 




c 

COECON 

CK19(K) 

defined in icoeff 




r 

COECON 



(08A,12B,133) 
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CK?0(K) 


CK2KK5 


CK22(K) 

CK23(K) 
CK.2a(Ki 
CK25(K) 
CK26CK) 
CKKl (K,KK) 


CKK2(K.KK) 

CKK3(K,t(Ki 

CL 

CLNUM 


CH(K) 


CMF 

CMFF(jj 

CoEEOV(n) 

COEFQV(N) 

COND 

CONE 

CONJ 

CONEOV 

CnR*R(N) 

C0RM4 


SET TO 0 

defined in icoeff 

(06A,l2B.12Ci 

defined in icoeff 
( fl6«/l2B, 13B) 

DSQtl-n * OPHIKH(K) / 3, 

C7 * F(3,I) * CK2S(Kj 

OETa(I»1) • OPHIKHIK) 

C7 * F(2il) * CK25(Ki 

DfFINCO in IfOEFF 
( 0 SA,l 2 a, 13 B) 

defined in icoeff 

(n8A,12B.13B) 

defined in icoeff 

(0BA,12B) 

LM) IN MIXING length formulation, 

(t'»Aj 

CLAU8ER NUMBER USED IN DEFINING EDDY VISCOSITY IN THE 

Wake portion of the boundary layer, 

(078,lPAj 

Elemental mass transfer coefficients based on mass 
Fraction potential, given by vjkw(K)/(dum(K)*nat(k)) where 
diim(k) is The summation over kk of (sp(i,neta,kk) - 

SP<i,l,KK))/WTM(KKiACIJ(K,KK) 

the factor by which all CORRECyIONS are damped during 
chemistry iterations. 

The value of cmf after consideration of constraints on the 
Correction to be applied to the partial pressure of the jth 
Species, 

Global set of coefficients C5,cp,c7, etc. 

Global set of coefficients cki,ck2, etc. 

Thermal conductivity 

cone half-angle for sphere-cone Shaped bodies, 

(ora) 

25036,'5 (778*52,2) 

Variable equivalenceo to coecon for dumping purposes 
correction array, composed of corrections in HU), 

lal TO NETA, and (SP(t,:,K), Ib1,WETA), Ks1,NSPM1.' 

THE VALUE OF THE MAXIMUM CORAR. 

(oSB) 


c coecon 

C COECON 

C COECON 

L lONLY 
L lONLY 
L lONLV 
L lONLV 
C COECON 

C COECON 

c coecon 

C EPSCOM 
C EPSCOM 

L OUTPUT 

L CRECT 
L CRECT 

E COECOM 
E COECON 
L OUTPUT 
C PRMCOM 

L NONCER 
L OUMCOM 
E NONCOM 

C BUHCOM 
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CCISOR 

CP(J) 

CPA 

CP0AR(I ) 
CPF 
CPG 
CPTIL 

CRBEOV 
CRHO(t-l ) 

CRhOI 

CS(M3) 

CSPR(Ms) 

CSP 

CT 

CTR 

CXM 

CVM 

CYSP 

0 

D 

01 

08 

D8UE0r. 

OBAR 


USED IM TRANSVERSE CURVATIUS CALCULATION 

SPECIFTC HEAT, 

(?0A,alA,22A,2SA) 

locally DEPINEO VARIABLE 

Frozen specific heat of the mixture. 

(o8A,11A,1«A,19A,2SA) 

frozen specific heat, identical to CCPF+. 

(?0a,22a) 

Frozen specific heat of gas, identical to ccpg*. 

(22a) 

Property op the gas mixture which reduces to cpbar for 
Equal diffusion coefficients, see eo(i«) 

(08A,iaA,25Aj 

Variable equivalenced to crbcom for dumping purposes 

C26 * OETA(I-l) * (l,«(RHOP(I)/RHO(I)) • DETA(I-ti/fci 
(UA, 12B, 13B) 

(rhoe(L) / rhO(D) a oeta(i-i) * (i,adeta(i-i ) * RHOPdi / 
(rHO(I) a 6.)) 

Entropy corresponding to sf(hs) 

(n50,O7A) 

Entropy derivative with respect to sf(ms) 

(nSB,07A) 

equilibrium specific heat of GaS. 

coefficient APPEARING IN THE APPROXIMATION FOR THERMAl 
Diffusion coefficients, see e0(15), (numerically equal to 
•0,5) set equal to zero When Thermal diffusion NEGLECTF.D. 

(nSA,lUA,25A) 

CT A universal gas constant, 

(08A, iaA,25A) 

locally defined variable 

LOCALLY DEFINED VARIABLE 

Locally defined variable 

Set of constant vectors converted to solution vectors 
Argument representing delta eta 
OfFINED by EO (3) or (a) 

Defined by eq (3) or («) 

SECOND DERIVATIVE OF UEDGE WITH RESPECT TO STREAM FUNCTION, 

See eo(16) set equal to zero in present program, 

reference diffusion coefficient Introduced in approximation 
For unequal diffusion coefficients, numerically equal to 


L output 
C EOTC . n » 

L mater 
C PPPCOM 

C EQTCOM 

C EQTCOM 

C PPPCOM 

L DUMCOM 
C PRPCOM 

L I ONLY 

C EDGCOM 

C EDGCOM 

L EOLIII. 

C PRPCOM 

C PRPCOM 

L TONLY 
L lONLV 
L lONLY 
L repay 
L TAYLOR 
L hISTYI 
L HISTYT 
C EDGCOM 

L PROPS 
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OCAPCH 

DCtPCH 

OCtPCK(K) 

DCU 

DCLPI 

OCLPM 

0CP8H 

OCP0K(K) 

OCPTH 

0CPTK(K j 

ocu(n 

del 

OEUJ"'(K) 

DELQJW(N) 

oelom 

OELBD 

oecsr 

OEI-TA 

OEUC 

oer(Li 


«;i6E-8 * T * SQRT(T) / (OMEGA • P), 


derivative of capc with respect to h, 

(oSA, 14A, 19A,25A) 


DCAPCH AT THE WALL 

Derivative of capc with respect to mass fraction of 
element k 

(OAA, 19A,2SA) 

derivative of cl at I WITH RESPECT TO CL AT I-1 

Derivative of cl at i with respect to pi at i 

Derivative of cl at i with respect to pim at i-i 

derivative of cpbar with respect to h, set equal to tero in 

CURRENT PROGRAM, 

(i'«A,25A) 

Derivative of cpbar with respect to mass fraction of 

ElEMENT K. SET EQUAL TO EERO IN CURRENT PROGRAM, 

(PBA) 

Derivative OF cPTiL with respect to h, set equal to zero in 

CURRENT PROGRAM, 

(?aA,25Aj 


Derivative of cptil with respect to mass fraction of 
E lEMENT K, set equal TO ZERO iN CURRENT PROGRAM, 
(25 aJ 


(DETA(I))aaJ 

(08A,27A) 

•vmue(IS)*c3» length parameter used to normalize the Y 
OT ■pension 

ERROR IN diffusive MaSS ELUK, WALLJ(K). INTRODUCED DURING 

newton-raphson iteration, 

Gl OBAL SET OELQW AND OELJW(K), 

ERROR IN DIFFUSIVE HEAT FLUX» WALLO» INTRODUCED DURING 
newton-raphson iteration 

(05B) 

BnDy displacement GIVEN BY V (NETA ) -CB9/ ALPH»F ( 1 , NETA ) , 

Stored in timE(n),nbu*5o 
( i 1 A , n B ) 

DrSPLAC£l*£N7 THICKNESS GIVEN By Y (NETA)»C«9» (F( l , NE TA > 
-E(1»1))/ALPH, 

(itA) 

boundary layer THICKNESS PARAMETER USED IN BUSHNELL TURB- 
ULENT MODEL 


Constant in correction coefficients on epsa(I) resulting 
From linear correction coefficients 

(i9A) 

dimensioned variable used in various subroutines but not 


C PRPCOH 

L TRMBL 
C PRPCOM 

L TRMBL 
L TRMBL 
L TRMBL 
C PRPCOH 

C PRPCOM 

C PRPCOH 

C PRPCOH 

C ETACOH 
L TRMB2 

C FLXCOH 

E FLXCOH 
C FLXCOH 

L 

c nuTcny 
L trhbl 

C EPSCOH 
C TEMCOK 
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USED FOR TRAN3MITT1NC INFORMATION BETWEEN SUBROUTINES 
(n7A,llA, J9T) 


DETA(I) 

ETA(IaI) • ETA(I) 

(06A,10A, 128, 13B,18A,19A,1'»T,27A,29A,50F) 

c 

ETACOM 

OF 

Thrust toss, oefineo in biia 

L 

output 

OHTILH 

Derivative of htil with respect to h, 

(OSA, 10A,25Ai 

c 

PPPCOM 

DHTILK(K) 

ofrivative of htil with respect to Hass fraction of 
element k. 

(0SA,25A) 

c 

PRPCOM 

01 V 

RnW normalizing factor in GAUSSIAN elimination. 

L 

REPAY 

OIVC 

Product of 'div and element of row. 

L 

REPAY 

OKPTIMK j 

Derivative of log kp with respect to log temperature. 

(?8A) 

c 

KINCOM 

OLPH 

Af3.p evaluated at the wall. 

(0*50) 

C 

fJONCOM 

olpkIk j 

Af3,K^2) evaluated AT THE WALL.' 
(oSBi 

C 

NONCOM 

OLXl 

A|_OG(Xl(L) / XI(L-in 

L 

HISTX I 

OLxa 

Stored (historic) value for dlogxi defined by Eo(i7i 

(1 OA) 

C 

HISCOM 

DmUJH 

Derivative of vmu3 with respect to h, 

(fl8A, 1RA,2SA) 

C 

PRPCOM 

0mu3k(k) 

Derivative of vmu3 with respect to mass fraction of 
element k. 

(08a,25a) 

C 

PRPCnw 

0MU4H 

Derivative with respect to h of the coefficient mua 

defined in EQ(18) 

(nSA, 10A,2SA) 

C 

PRPCOM 

0MIJ«K(K j 

derivative with respect to mass fraction of element K of 
The coefficient muu defined in EQUR) 

(d8A,25A) 

c 

PRPr.OM 

OMUiaH 

Derivative of vmui2 with respect to h, set equal to zfro in c 

Current program, 

(i«A,25A) 

PRPCOM 

DMU12K(K) 

Derivative of VMUia with respect to mass fraction of ele- 
ment K. set equal to zero in present program, 

(?5A) 

C 

PRPCOM 

OPDX(N) 

Defined in input instructions for sinput 

L 

GEOM 

OPHIKH(K) 

Derivative of phik with respect to h, set equal to zfro in 
Current program, 

(d8a,13B,25A) 

C 

PRPCOM 

DPHIKK(K,KK j 

dfrivative of k th phik with Respect to mass fraction of 
element kk, set equal To zero in current program. 

C 

PRPCOM 



0pI(3*K,2) 


0P9H 

OPRK(K) 

OOJNLfM) 

OQjRNL(Nj 

OQRH 

0QRK(K j 

ORHOH 

ORHOI 

ORMOK(K) 

DRHQW 

ORNL(N) 

08CH 

03Ct<(K) 

OSIP(L) 

OSQd) 

OSTURfl 

OSV 


(oaA, t3a,25A) 

(array of derivatives of pi with respect to primary 

VaR1ABLES)/TREF 

(tPA) 

Derivative of pr with respect to h, set equal to zero in 

CURRENT PROGRAM, 

(nSA, iaA,2SA) 

Derivative of pr nith respect to mass fraction of element 

K.‘ SET EQUAL TO ZERO IN CURRENT PROGRAM. 

(O0A,25A) 

Global set of oonl and djnl(k). 

Derivative oe diffusive heat and mass fluxes, walloj with 

RESPECT TO NTH REDUCED NONLInEaR VARIABLE. 

Derivative of or with respect to h, set equal to zero in 
Current program, 

(ASA, 14A,2SA) 

Df,RIVATIVE of or with RESPECT TO MASS FRACTION OF ELEMENT 
K,' SET EQUAL TO ZERO IN CURRENT PROGRAM. 

(n0A,25Aj 

derivative of rho with respect to H, 

(05B|08A,14A, 19A, 1RT,2SA) 

derivative of velocity defect thickness with respect TO 
Rho at I 

derivative of rho with Respect to mass fraction of 
Element k, 

(oSB,06a,19A,19T,2SA) 

DRHOH AT THE WALL 

Reduced nonlinear errors before matrix inversion, corrfc- 
TIOnS of variables in reduced nonlinear set after matrix 
Inversion. 

(oSfl,0SC) 

Derivative of sc with respect to h, set equal to zero in 

CURRENT program, 

Co8a,25A) 

derivative of sc with respect tO mass fraction of element 

K.' SET EQUAL TO ZERO IN CURRENT PROGRAM, 

(a8A,25A) 

Decrease in entropy from previous station to current 
station l at boundary layer edge due to shock curvature 
( nSlP(l) ■ 0 8Y definition), 

(oTa,1«A,20A) 

(DETA(I) j«*2 
(nSA,27A) 

2*STURB 

LnCALLT defined variable 


C EPSCOM 

C PRPCOM 

C PRPCOM 

F. FLXCOM 
E NONCOM 

C PRPCOM 

C PRPCOM 

C PRPCOM 
L TRMBL 
C PRPCOM 

L TRMBL 
C ERRCOM 

C PRPCOM 
C PRPCOM. 
C EDGCOM 

C ETACOM. 

L TRMBL 
L MATSl 
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OTD 

OTEMP 


DTH 

DTHW 

OTK(K) 

DTKW(K) 

DTM 

OTU 


OnWNWARD TEMPERATURE STEP USED TN SEEKING SURFACE EOUTLIB- 
RrUM SOLUTION, 


Predicted chance in surface temperature for the current 

ITERATION DURING A KR(R) a b PROBLEM, 

*not used in blimpj* 


OfRivaTive of t with respect To h. 

(nSBiOSA, laA.ZSA) 

DtH evaluated at the wall.’ 

(o5B,05C) 

Derivative of t with respect to mass fraction of element k 

(d 50,O8A,25A j 


DtK evaluated at the wall. 

(0SB,05C) 

LIMIT Value OF delta (i,/t) in chemistry solution.’ 

UPWARD temperature STEP USED IN SEEKING SURFACE EOUTLIBRIUm 

Solution, 


0UB2 

oub3 

ouBa 

DUB5 

OUoS(L) 


OUOX(N) 

OUEDGE 

DUES 


LOCALLT INPUT variables, iF NOn-ZERO ASSIGNED TO FITMOL. 

0A3MOL, sigma and epovRk, respectively 


derivative of edge velocity with respect to 3 IN REFCON, 
Temporary storage area in other routines, 

(oTA, llAi 

PFFINeO in input instructions for sinput 

derivative ueoge with respect to stream Function, sfe eo 
(20).(Set equal to zero in present PROGRAM), 

(o5B,06Aj 

derivative OE edge velocity with respect to 3TREAMWISE 
coordinate s. 

{058, OTA) 


DUM 

locally 

(ORfli 

DEFINED 

variable 

(Various 

ROUTINES) 

DUMl 

LOCALLY 

defined 

variable 

{VARIOUS 

routines) 

0UM2 

locally 

defined 

variable 

(VARIOUS 

ROUTINES) 

0UM3 

locally 

defined 

variable 

(VARIOUS 

ROUTINES) 

0UM4 

locally 

defined 

variable 

(VARIOUS 

ROUTINES) 

DUMB 

locally 

DEFINED 

variable 

(VARIOUS 

ROUTINES) 

0UM6 

Locally 

defined 

variable 

(VARIOUS 

ROUTINES) 

DUM7 

LOCALLY 

defined 

variable 

(Various 

ROUTINES) 

0UM8 

LOCALLY 

DEFINED 

variable 

(VARIOUS 

ROUTINES) 

DUMP 

P * 10**7, LIMIT 
IsTRY solution. 

pressure 

IN controlling damping OF CHFM 


L Enuu 
u NONCER 

C PRPCOM 

C NONCOH 

C PRPCOM 

C NCIMCOM 

L CRECT 
L EQUIU 

L INPUT 
L INPUT 
L INPUT 
L INPUT 

C TEMCOM 

L GF-OM 
C EDGCOM 

C EDGCOM 

L 

L 

L 

I.. 

L 

L 

L 

L 

L. 

L CRECT 
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ooz 

OVNL(N) 

0V3 

OXOS 

OVf J) 

OYI 

OZ 

OZKH(K j 
OZKK(K.KK) 

E(Nl 

EAR 

EAK(MK j 

ease 

EBCK) 

EBL(K) 

ECO(N) 

EOGEQV 

EER 

EESE(N) 
EF(N»NNi j) 


LndUY defined variable 

damped nonlinear corrections# given by EQ(2n 

(05Bi 

velocity defect thickness over del. 

(iRA) 

Derivative of axial coordinate with respect to wall length 
coordinate, computed by linear averaging. 

(ORB) 

correction on VARIABLE Y(J)* In CHEMISTRY SOLUTION, 
(?0A,2SA) 

DAMPED correction ON VARIABLt Y(J)* IN CHEMISTRY SOLUTION.' 

The d sub zero of EQCIZ) 
derivative of zk with respect to H, 

(fl8A/2SA) 

Derivative of k th zk with with respect to mass fraction 
Of element kk, 

(0SA#2SA) 

ERRORS IN CHEMISTRY EQUATIONS (MASS BALANCE ERRORS FOR N 

Equal To or less than is*, equilibrium errors for n greater 
Than IS*, where IS* IS NUMBER OF ELEMENTS INCLUDING 
Electron) , 

(20a,22a,23A,28A) 

absolute value of equilibrium error for a species in chem- 
istry Solution. 

Activation energy. 

(24A,28A) 

Damping factor, applied uniformly to all corrections. 

(o4A,oSB,QSC,20A,22A,28A) 

Magnitude of largest contribution to k th mass balance. 
(22a, 23a, 28a) 

minimum contribution accepted to K th mass balance, 

■F8/(10**8) 

(22A) 

Re3IDUAL error in condensed equilibrium imposed in chemis- 
try solution as a consequence of boundary layer damping. 

Variable eouivalcnceo to edccom for dumping purposes 

Equilibrium error of condensed species being introduced 
During current iteration. 

Residual error in mass balance imposed in chemistry .solu- 
tion AS A consequence of boundary l*ve» damping, 

(28a) 

Thermodynamic curve fit constants input in group lo.' 

(14B) 


L output 

C NONCOM 
C EPSCOM 
L GEOM 

C EOTCOH 

L CRECT 
L HISTXI 
C PRPCOM 

C PRPCOM 
C EOTCOM 

L mater 
C KINCOM 
C BUMCOM 
C EOTCOM 
C EOTCOM 

L MATER 

L DU«cnM 
L mater 

L MATER 
C EDTCOM 


4-180 



EG2 

Contribution to thermal flux due to ineouality of turbu- 
lent PRANOTL and SCHMIDT NUMBERS 

L 

'TRMBL 

EG3 

Contribution to thermal flux oue to turbulent viscous 
Dissipation 

L.' 

T'RMBL 

EH8 

ERROR IN enthalpy OR ENTROPY FqR ASSIGNED ENTHALPY OR 
Entropy chemestry solutions. 

L 

MATER 

el 

Maximum equilibrium error, identical to eel*. 

(P0A,22A) 

C 

EQTCOM 

EL(1) 

mixing length normalized by del. 

(iRA) 

C 

EPSCOM 

EICON 

mixing length constant as in L s elconay, 
(07R,1RA) 

C 

EPSCOM 

ELK 

LOG OF equilibrium IMBALANCE OF KINETIC REACTION, 

L 

KINET 

ELKM 

Log of non-equilibrium of kinetic relation 

L 

KINET 

ELM(N) 

Global set of maximum values of errors for various sets of 
Taylor series expansions. 

(o<jaJ 

C 

ERRCOM 

ELMM 

Maximum value of elm(n). 

(O4A,0SB,06A) 

C 

ERRCOM 

EMIS 

Surface emittance of the material being considered under 

Kfl(9j a 3,4,5 OR 6, 

(05C, llA) 

C 

CRBCOM 

EMISC 

Surface EMITTANCE OF the material being considered under 

KR(R) a 3 OR R, 

(nSB,05C) 

C 

CRBCOM 

EM13T 

Surface emittance of the material being considered under 

KP(9i = 5 OR 6, 

(nSC,0RA) 

C 

CRBCOM 

EMIV 

Surface emissivity 

(o5B,09A) 

C 

CRBCOM 

enl 

maximum mass Balance error, identical to eenl*, 

I20A,22A) 

C 

EQTCOM 

EnlCN) 

Global set of errors for linearized conservation fouations 
and boundary conditions, 

(o5b,05C,12B, 13B. 1RA,30C) 

C 

ERRCOM 

ENLM(N) 

Global set of maximum values of errors for the various 
sfts 0^ linearized conservation Equations and boundary 
Conditions, 

(05B) 

C 

F.RRCOM 

Enlmm 

largest value of ENLM, 
(R4A,o58) 

C 

ERRCOM 

ENORM 

Normalizes error in energy equation 

l 

NNNCER 

EOL 

multiplying factor used to smoothly transform KINETIC mass 
Balance to equivalent equilibrium equation. 

L 

KINET 
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EP 

error in overall pressure balance. 

L 

MATER 

EPI 

LOCALLY DEFINED VARIABLE 

L 

TRMBL 

EPnVRK 

EpSILON/K, of reference species In diffusion calculations 

(24A.2SA) 

C 

EQTCOM 

EPS 

KINEMATIC eddy VISCOSITY 

L 

TRMBL 

EPS! 

Kinematic eddy viscosity jn wall region 
( iRA) 

C 

EPSCOM 

EPS2 

Kinematic eddy viscosity in wake region 

L 

TRMBL 

EPSAd j 

RHaai**2*(ED0Y VI3CQSITYj/(RH0£<L)*VMUE(Ln, 
(nSB.llA.lRA) 

C 

EPSCOM 

EPSOUT 

Variable eouivalenced to epscom for output purposes 

L 

TRMBL 

EOPEQV 

Variable equivalenceo to eqpcom for dumping purposes 

L 

DUMCOM 

EOTEQV 

Variable equivalenceo to eotcom for dumping purposes 

L 

DUMCOM 

ER 

Error in mass balance relation. 

L 

MATER 

ERPl 

oawson function of argument at I 

L 

TRMBL 

ERP2 

DAWSON function of argument at I-l 

L 

TRMBL 

ERPPl 

derivative of DAWSON function with RESPECT TO ITS ARGUMENT 
at T 

L 

TRMBL 

ERPP2 

Derivative of dawson function with respect to its argument 
AT I«t 

L 

TRMBL 

ERREOW 

Variable equivalenceo to eRRcom for dumping purposes 

L 

DUMCOM 

ET 

Error test for boundary layer equations. 

L 

ITERAT 

ETA(I) 

transformed coordinate in a direction normal to the 
Surface defined by eq (22) 

(o 4A,05B,07B,09A, UA, tRA,27A,29A,50F,50G) 

C 

ETACDM 

ETAEQV 

Variable equivalenceo to etacom for dumping purposes 

L 

DUMCOM 

ETAf 

locally defined variable 

1 

EIRSTG 

EXEL 

ratio of forward to reverse driving potential in kinetic 
Equations, 

L 

KIMET 

EXK(MKi 

always set To i.o, (reaction exponent), 

(P4A,28A) 

C 

KINCOM 

P2FIX 

desired values of velocity Ratio at the nodal points. 

(n7B,0RA,llA,50F) 

C 

RFTCOM 

F2PIXT 

dfsired values of velocity ratio at the nodal points for 
Turbulent flow, used only to change the F2fix at trans- 
ition to turbulence. 

(07B,09a,11A) 

C 

RFTCOM 

P(N,n 

stream function (NsI), velocity ratio (Nb2) and deriva- 
tives OF ORDER N-2 OF VELOCITY RATIO WITH RESPECT TO ETA ' 
(rt3A,04A,05B,05C,06A,OBA,tOA,IlA,12B, 1 9A , 1 9T , 29 A , 50 A , 50G ) 

C 

VARCOM 
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C SLQCnM 


) 


/ 





FAMOA(J) 
FAM0B( J j 

FD(N) 

FEDCE 

FF(jj 

ffa 

FFaR 

FFF 

FFINfJj 


alphanumeric variable, first Of two portions of species 
Name, identical to moaa. 

(?0a,23A,34A,2?A) 

alphanumeric Variable, second of two portions of species 
Name, identical to mob+, 

(?0A,23A,24A,aSA) 

Ol * F(N*1,I) ♦ D2 * HFa,N41) FOR N«l THROUGH 3, 

01 * F(a,I-n*D2 * HF(I«i,4) Fnfl Nau. 

Value of stream function at the edge. 

diffusion factor introduced BT the approximation for 
diffusion coefficients by E0(23) 

(21A,22A,23A,2aA,2SA) 

POWER ON molecular WEIGHT IF IT IS ASSUMED THAT THE DIFFU- 
SION factors, FF(J), are proportional to species MOLECULAR 
Weights, wtmij), raised to a poker. 
i?.ukS 

Power on molecular weight read in if it is assumed that 
The diffusion factors, ff(J), are proportional to species 
molecular weights, WTH(J), raised to a power other than 
o.*?: 

Ratio of gas molecular weight to *vhu2». 

(2t A,22A,23A) 

diffusion factor, FFU), which is read In, 


FFk2 parameter set. equal to WM/VMU2 FOR EQUAu DIFFUSION COEFFI- 

CIENTS (KKR(l4)a2) and TO FF(K) FOR UNEQUAL DIFFUSION 
COEFFICIENT (KKR(l<OaO OR 1), 

FITMOL constant IN CURVE FIT OF DIFFUSION FACTORS BaSEO ON 

MOLECULAR weights 


C 8LOCOM 

L HISTXI 

L NNNCER 
C EQPCOM 

C EOPCOM 


L INPUT 


L matfr 

L INPUT 
L PROPS 


L INPUT 


FKF(MK) 


FL0(N,NN) 


FLE(N) 


FLEM 


pre-exponential factor, pound moles of reactant pep second 
PfR FT*«2. 

(?4A,28A) 

CURVE FIT constants FOR THERMODYNAMIC DATA FOR The fuuTO 
mixture in KR(T)3l option (SIMILAR TO THE QUANTITIES DIS- 
CUSSED IN GROUP 13 OF The INPUT INSTRUCTIONS), NNe 1,? OR 
3 FOR temperature ranges low To nigh 
C l«B,l4C,140,l4Ej 

Error for the taylor series expansions involving F(i,n 
AND THEIR derivatives, 

(O5b,0<».A,30C) 

maximum value of FLE(N). 

C06A) 


FLIO fraction of a species which IS LIQUID. 

(20A,21 A,22A) 

flpeov Variable eouivalenced to flpcom for dumping purposes 

FLUXJ(N,L,n converged VALUE FOR MASS FLUX pP COMPONENT N INTO THE 
Boundary layer at the wall, n s i to 3 for edge gas, 


C KINCOM 
C STTCOM 

r ERRcnw 

C ERRCOM 
C EQTCOM 
L DUMCnH 

r. WALCOM 
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FlXEOV 

FM(JJ 

FN 

fnlem 

FNU(K) 

FPPW 

FR(J#I) 

FW(L,1 j 

FWCONCl j 

FwOUM(l) 

&(M«n 

CAM 

CAHt 

GamF(K) 

GAMH(K) 


PyHOUVSIS GAS AND CHAR, RESPECTIVELY, 

(0SB,05C,07A) 

Variable eouivalenced to flxcom for dumping purposes 

3 IF UNIMPORTA^4T SPECIES (NOT SIGNIFICANT IN ANY MASS 
BALANCE), OTHERWISE 1. 

LDCALLY defined VARIABLE 

ERROR FOR THE LINEARIZED MOMENTUM EQUATIONS AND BOUNDARY 
CONDITIONS, 

(0<IA,05B) 

vnU(j,kj for current J, 

(nSC,22A) 

F(3,i) printed in qne-line-per-iteration output. 

Mole fraction, 

(1U,20A,2SA) 

converged value of stream function at surface of body.' 

(flSC,07Aj 

integrand in calculation of FW in REFCON, temporary 
storage area in other ROUTINES. 

(oTA) 

Fw * S0RT(2*Xlj IN BEFCON, TEMPORARY STORAGE AREA IN OTHER 

Routines, 

(07a,IU) 

Total enthalpy (NaU and its derivatives OF ORDER N.t WITH 

RFSPECT TO ETA 

(oSB,oSC,06A,06A,10A, t tA,|2B,19*,24*,2RA,S0G) 

IsEntropic exponent, defined By EO (2a). 

ISENTROPIC exponent for HOMOGENEOUS MIXTURE 
(tttA) 

defined by Ep(25) 

(flSC,20A,22A) 

defined by E0(26) 

(OSC,20A,22A) 


GAMK(K,KK) 

GD(N) 

GE(M) 

GEP 

GLE(N) 


defined by E0(27) 

Ol * G(N,n ♦ 02 * HG(1,N) FOR N»1 THROUGH 3, Dl * G(3, 
I-l) ♦ 02 * HG(I»t,3) for Natt, 

stagnation enthalpy at boundary layer edge, 

(nSS,07A,07B,09A,09S, tlA,US,laA,2PA) 

derivative of total enthalpy at boundary-layer edge with 

Respect to eta 

(OSB,06A) 

error for the Taylor series expansions involving g(i,i) 
And their derivatives. 

(nSB, 06 A) 


L OUMCOM 
C EQTCOM 

L FRP 

C ERRCOM 

C eqTcom 

L HERAT 
C RLOCOM 

C WALCOM 

C TEMCOM 

C TEMCOM 

C VAPCOM 

L EOUIL 
C SITCOM 

C EOTCPM 

C EQTCOM 

E NONCOM 
L HISTXI 

C PR“COM 

C EOr.COM 

C ERRCOM 
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c epprn^* 


GLEM 

GhR 

GnlEM 

GRAORn 

GM 

H(I) 

H(J) 

HALPH 

HCARB 

HCH 

HCHAR 

HE 

HEA(L) 

HEAT 

HET 

HF(I,N) 

HC 

HG(I.N) 

HH(I) 

HH(J) 

HtNF 

HIP 


maximum value of GLE(n1, 

(ftfcA) 

IsEnTROPIC exponent prom equilibrium calculation, SEF gam,' 
(ilA, 1«A,20A) 

ERROR FOR THE LINEARIZED ENERGY CONSERVATION EOUATIDNS. 
(oaA) 

NOT USED IN 8LIMPJ 

FIRST GUESS FOR WALL ENTHALPY WHICH IS READ IN WHfn 
KR(2)sO 

STATIC Enthalpy of the mixture, identical to hh*. 

(OSBfOdA, llA, IRA) 

ENTHALPY, IDENTICAL TO HH+, 

(pnA, 2 lA, 22 A, 2 SA, 28 A) 

'(iOA) 

STORED (HISTORIC) VALUE OF ALPh ONE STATION UPSTREAM. 

Heat of formation at 2RS deg, k of the surface material 
BF iNG considered under KR{9) ■ J OR 4, 

{nS8,05C) 

ChAMBEP (OR stagnation) enthalpy 

(20A ) 

Char enthalpy 

(OSB,09A) 

STATIC enthalpy of GAS AT BOUNdaRY-LAYER EDGE, 

(i'JA) 

Static enthalpy distribution at boundary-layer edge 

(o5B,orA,20A) 

LOCAL contribution TO THE TOTAL HEAT TO THE WALL 
TOTAL enthalpy of GAS AT BOUNDaRY-LA YER EDGE, 

Stored (historic) value of f(n,d one station upstream 

for NaJ THROUGH «, HF(I»5) s Ot»F(l»I) ♦ d2*HF(I,1) 
where 01 AND 02 are defined BY EO (5) 0B(4) 

(oSC, 08A, lOA, UA, 19A) 

Enthalpy of gas, identical to hhga, 

(20A,a5A) 

STORED (HISTORIC) Value of C(N,I) one station UPSTRFAM. 

(ioAi 

STATIC ENTHALPY OF THE MIXTURE, IDENTICAL TO H*. 

ENTHALPY, INDENTICAL TO H{J)*. 

(nSB) 

FrEE-STREAM static enthalpy 

(oTA,aOA) 

enthalpy input, 

(OSB,OSC,20A,22A) 


c PRPCOM 

C erpcom 

C PPMCOM 
L FIRSTG 

C PRPCOM 
C EOTCOM 

C HtSCOM 
C CRBCOM 

L EQUIL 

C CRBCOM 

c FDGCOM 

C EDGCOM 

L OUTPUT 
L STATE 
C HISCOK 

C EOTCOM 
C HISCOM 

c PRPCOM 
C EOTCOM 

C EOGCOM 

C EOTCOM 
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HI3EQV 

Variable eouivalenceo to hiscom for dumping purposes 

L 

DUMCOM 

HI8T1 ( N ) 

3p7 OF variables S7aR 7ING WITH Xl(i) 70 PE S70RE0 ON TAPE.' 

E 

hiscom 

HIST2(N) 

Set of VARIABLES starting with PE(l,n TO BE STORED 
On tape 

E 

EDGCOM 

HISTKN) 

Set of variables starting with F(l,lj to BE stored on TAPE 

E 

VARCOM 

H1ST4(N) 

set of variables starting with FW(i,n TO BE STORED 
On tape 

E 

WAl COM 

HM( J) 

Enthalpy of fusion. 

C 

EOPCOM 

hmat 

Heat of formation at 29s deg, k of the material being 
considered under KR{9) a J,4,5, OR 6, 

(oscj 

C 

CRflCOM 

HMELT 

Hm(J) if j th species is changing phase, otherwise 0. 

(pnA.2U.22A) 

C 

EQTCOM 

HOS 

Enthalpy or entropy of species in assigned enthalpy or 
Entropy chemestry solution. 

L 

MATER 

HP 

Derivative of h with respect to eta, 

(nSB.OBA. IRA] 

C 

PRPCOM 

HPG 

Hf*T of formation at 298 DEC, K OF The pyrolysis gas being 
Considered under krcr) a j or a, 

(O5B.05C) 

C 

CRBCOM 

HPYG 

Pyrolysis gas enthalpy 
( nS8,09A) 

C 

CRBCOM 

H8P(I,N,K) 

STORED (historic) VALUE OF 3P(N,I,K) ONE STATION UPSTREAM. 
(tOA) 

C 

HISCOM 

htef 

Heat of formation at 29s deg, k of The material being 
considered under KR(9) 8 5 or 8, 

(O5C.09A) 


CRBCOM 

htil 

Property OF the gas mixture which reduces to h(d for 
equal diffusion coefficients, see E0(2S) 

(08A,iaA,2SA) 

c 

PRPCOM 

HTItP 

Derivative of htil with respect to eta. 

(nSA) 

C 

PRPCOM 

HW(L.I) 

CONVERGED enthalpy OF GAS aT ThE WALL, 
(0Sc,07a,2SA) 

c 

WALCOM 

I 

Index on eta, lat at wall, identical to iu, 

(oSa,OSB,05C,06A,07a,08a,09a, Ida, 1 1 a, mb, 12B. i3B, 1 «A, 19A, 
»9 t,26A,27A,29A) 

-L_ 


n 

LOCAL index 

L 

KINET 

1777 

Variable to check if subroutine has previously been entered 

c 

BUMCOM 

iast 

Assigned the value comma (,) through a data statehent for 
Use in test of whether there is To be another case. 

L 

BLIMP 

IB(K) 

Index on species with largest contribution to k th mass 

C 

EOTCOM 
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iblank 

IC(K) 

ICORM 

ICT 

lOENT 

I0I3C(L) 

ID3IP 

lOUM 

IE 

IEnlm 

lENLM 

lER 

lEC(J) 

ielm 

IFLUX.I 

IFN 

IFN 

IFnLM 

IFP 

IFP 


Balance, subseouentlv ordered on ib with duplicates set 
T o 1000, 

(?2A,23A) 

Assigned the value blank < ) through a data statehent for. 

Use In test of whether there is to be any punched card 
Output, 

Negative index of element corresponding to kth base species 
Index corresponding to corma in the corar array, 

(058i 

CYCLE counter on POST INVERSION MODIFICATION IN CHEMISTRY 

Solution 

alphanumeric identification symbol APPEARING ON Punched 
Card data (no cards punched if ident is input as a blank).' 

control variable for discontinuity (1 IF discontinuity, 
otherwise 0), 

(dEA,04A,07A.09A,10A) 

item when dsip is to be updated. 

(07A) 

locally defined variable 

EoUATION index for condensed species, 

InOicies on maximum non-linear errors For each set of 
Conservation equations 

InDicies on maximum non«linear errors for each set of 
Conservation equations 

Equation number to represent newly appearing condensed 

SPECIES 

(pOA,2SA) 

CONTROL FLAG (0 GAS, -I NONPRESENT CONDENSED, ♦! PRESENT 

Condensed, prior flags decremented by 3 if species contains 
NoNPReSENT element or incremented by 3 IF IT IS A BASE SPE- 
CIES representing a NONPRESENT ELEMENT), 
(20A,2IA,22A,23A,2«A,23A,28A) 

InOEX of the set of linear equations which has the largest 
ERROR FLEM, 

(06A) 

item when FLUXJ is to be updated, 

(OTA) 

INDEX ON linear variable F(l,l) 

Index on linear variable f(i,I) 

Index of the linearized momentum equation which has the 
Largest error fnlem, 

(0«4,05B) 

Index on non-linear variable F(2,d 
Index on non-linear variable F(2,i) 


L OUTPUT 

U INPUT 
C BIJMCOM 

L EOUIL 

C INTCOM 

C PRMCOM 

C EDGCOM 

L SETUP 
L mater 
L RNLCER 

L NONCFB 

C EOTCOM 

C EOPCOH 

C ERRCOM 

C WALCOM 

L IMONF 
L lONLY 
C ERRCCIM 

U IMCNE 
L I ONLY 
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IFPP 

INDEX ON LINEAR VARIABLE F(3,ll 

L 

IMONE 

IFPP 

Index on linear variable F(3»ii 

L 

lONLV 

IFPPP 

Index on linear variable f(«»I) 

L 

IMONE 

IFPPP 

Index on linear variable f(4,iS 

L 

IONL Y 

IFRAC 

Input flag 

L 

STATEN 

IFW 

ITEM WHEN FW IS TO BE UPDATED, 
(OTA) 

C 

wALCOM 

IC 

NfiMlNALLV ZERO, EQUALS ONE ON FIRST SET OF BOUNDARY LAYER 

Chemistry solutions, first guess at i* is solution at 

I-IG, 

L 

EQUIL 

IG 

Elimination index in base species-element correspondence 
LOGIC. 

L 

INPUT 

IGLM 

Index of the set of linear equations which has the largest 
Error glem. 

(OAAi 

C 

ERRCOM 

ICNLM 

Index of the linearized energy conservation equation which 
HaS the largest error GNLEH. 

(14A) 

C 

ERRCOM 


item when HW is to be updated. 

c 

WALCOM 

II 

Index on eta, n»i at wall, identical to i+, 

(0Sc,0TA,20A,a5Al 

c 

INTCOM 

IIS 

local index 

L 

RECASF 

IJ 

LOCAL Index 

L 

PROPS 

IK 

LOCAL index 

L 

PROPS 

IL 

Index on first chehestry equation to be solved u for 
Unknown t and 2 FOR known T), 

(?0a, 22A j 

C 

EOTCOM 

ILEFT 

Timing flag, not used in current program 

C 

INTCOM 

ILMM 

Index of the linear equation which has the largest error 
Ei.mm, 

(06A) 

C 

ERRCOM 

IM(K) 

Row AND COLUMN INDEX IN INVERSION OF CIJ TO UM, 
(?aA) 

L 

INPUT 

IMI 

LOCAL INDEX 

U 

INPUT 

IMJ 

LOCAL INDEX 

L 

INPUT 

I MU 

LOCAL index 

U 

INPUT 

IN 

Number of equations being solved (has the value of the 
LOCAL variable I3PQ IF TEMPERATURE IS Unknown OR iSPQ-t IF 
Temperature I8 known), 

(20a, 22a) 

C 

EQTCPM 
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INLMM INOFX of the nonlinear equation which H43 THE largest error 

EnLhh. 

(05B) 

INP In+2 

IP Flag for pressure input, see input description sinput 

IPLOT Flag to output plot variables 

(oTA, 0<»A, llA) 

IPRE ITEM when PRE is to be UPDATED. 

inteqv Variable eouivalEnced to intcom (except kr(20)) for 

Dumping purposes 

INV F) AG ON restart of chemistry (permits only one restart) 

IQ For EACH NON.BaSE GASEOUS SPECIES INITIALIZED TO ZERO, SET 

To ONE IF SPECIES IS SIGNIFICANT IN ANY MASS BALANCE. 

IQQ OFRUG(»ai AND NONCONVERGEnT (- 1 j FLAG ON CALL TO AND RETURN 

FROM reray, respectively, 

IR(K) CORRESPONDENCE VECTOR BETWEEN BASE SPECIES and ELEMENTS. 

(OSC,20a,22A,2RA) 

IRAD ITEM WHEN RADR is to be UPDATED, 

(OTA) 

IRE Index on newly appearing condensed species, 

(?2a,25a) 

IRFD Fl.AG FOR ENTROPY LAYER INPUT, 

*n(jt used in blimpj* 

irhqvw . Item when rhovw is To be updated, 

(OTA) 

IS number of elements including electron, identical to iz*. 

(2(A,22A,2iA,24A,25A,28A) 

IS Index on s, is«i at stagnation point or leading edge, 

identical TO iss*, 

(n2A,OTA,0RA,05B,05C,O6A,O7A,0sA,0RA, lOA, n A, UB, IPA, tRA, 
1RT,20A) 

ISH Value of is at previous streamwise station at which a 

boundary-layer solution has defn obtained 

(02A,JOA) 

ISM NSP-I 

ISN alphanumeric data input on THErMOCHEMESTPY cards 

(i«e,2«A) 

isp Number of elements including electron plus one, 

ISP Same as isp in inpu't, 

(OSB,20A,22A) f 

ISP (t3*) ♦ 1 where is* is the number of elements iNci doing 

electrons. 


c ERRCOM 

L CRECT 
L GEOM 
C UNICOM 

C PRMCOM 
L OUHCnM 

L EOUIL 
L MATEP 

1. EOUIL 

C EOPCOM 

C PRMCOM 

C EQTCOM 

L REFCON 

C WALCOM 

C EOPCOM 

C INTCOM 

C INTCOM 

L PROPS 
L 

r BUHcoM 

L EOUII 
L INPUT 
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ISP 

I3P2 

ISP2 

I3PLH(K) 

I3PN 

ISPN 

I3PNLH(K j 

ISPP 

ISPP 

ISPPP 

igppp 

ISPQ 

ISPQ 

ISPW 

IS3 

1ST 

ISU 

ISV 

ISV2 

I3VP 

IT 

IT 

ITOK 

ITgM 


MSP ♦ 1 
(25A) 

number of elements including ELECTRriN PLUS TWO, 

NgP ♦ 2 
(25A) 

Index of the set of linear equations which has thf largest 
ERROR SPlEM(K). 

(06A) 

Index on non-linear variable (Gfi/i) dp SPCi/i,K)j 
Index on nqn-linear variable (gu.d or sp(i,i,k)) 

INDEX OF the linearized ELEMENTAL CONSERVATION EQUATION 
which has the LARGEST ERROR SPnLEm(K), 

(04A) 

Index on linear variable {G(2.d or spcz.i.k)) 

index on linear variable (G(2»I) or SPt2,I,K)) 

Index on linear variable (G(s>t) or sp (5,i>k)) 

Index on linear variable {6f3,i) or sp f3,i»x)) 

ISP2 ♦ NUMBER OF PRESENT CONDENSED SPECIES, 
(20A,22A,23A,2BA) 

NUMBER OF EQUATIONS SOLVED IM CHEMISTRY SOLUTIONS, 

IS*2f NUMBER OF PRESENT CONDENSED SPECIES, 

ITEM WHEN SPW IS TO BE UPDATED. 

(nTA) 

Index on s , issii at stagnation point or leading edge. 
IDENTICAL to I3+, 

(?0A,25A) 

LOCAL index 

Index of species representative of surface 

.(o5B,o5C, HA) 

isv is set equal to is* near Beginning of subroutine props 
IS* then being set to NSP. is* restored to isv at the end 
Of props, 

LOCALLY DEFINED VARIABLE 
Isv* J 

NOT USED IN CURRENT VERSION, IDENTICAL TO IITt, 

(22A) 

CURRENTLY SET TO UNITY, IDENTICAL TO ITT*. 
(02A,o3A,05B,05C,06A,07A,09A, 1 1 A, I OA) 

FLAG TO CALL namelist SINPUT 
(fl7A,0RA, IIB) 

time tor SUBCASE), 

(d2A,03A,0SB,07A, UA, tUA,20A,29A) 


L PROPS 

C KINCOH 
L PROPS 

C ERRCOH 

L I MORE 
L I ONLY 
C ERRCOH 

L I HONE 
L IDNLY 
L IMONE 
L lONLv 
C KINCOH 

L EQUIL 

C WALCOH 

C INTCOH 

L FIRSTG 
C CRBCON 

L PROPS 

L PROPS 

L PROPS 
C EOTCOH 

C INTCOM 

C UNICOM 

C INTCOH 
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c PRMcn^" 


iTFtin 

ITFdZi 

itf(is) 

ITFCiaj 
ITFC JSi 
ITFF 

ITS 

ITS 

ITT 

ITW 

lU 

lu 

lUNlT 

IX 

IX 

IX 


FLAG FOR PUNCH CARD OUTPUT, SET TO INPUT VALUE OF KR(S) 
(n9A,ll0i 

SpT EQUAL TO INPUT VALUE OF NTh 
( nOB, 1 IB) 

Stores value of restart station number 

(?RA,tlA) 

Stored value of input flag ip 

(oTA,OR0) 

Stored value of input flag iu 

(oTA,O90) 

Negative count on succeeding chemistry solutions which wul 
ACCEPT resident solution as first guess. 

(?oaJ 

counter for chemistry iterations, identical to itts*. 

(2i)A,2iA,22A,2eA) 

counter for boundary layer iterations, identical to hits*.' 

(n3A,04A,0SB,0SC) 

currently set to unity, identical to it*. 

(pOA,25A) 

Item when th is to be updated. 

<D7A) 

counter on number of STREaMWISe stations aT which boundary 

(n2A,05a,09B, 10A,20A) 

Fi AG FOR EDGE VELOCITY INPUT, SEE INPUT OESCRIRTION SINPUT 

FLAG FOR I/O Units so si units, «i English units 

(03A,05B,07A,ORA, UA, l«A,20A) 

Variable in repay call sequence having to do with printing 
OF DEBUG output, m 2 GIVES DEBUG, COMES BACK 3 IF INVERSION 
Succeeded, j if singular, 

(05B,05C) 

DIAGNOSTIC FLAG PREVIOUSLY USED TO INDICATE TYPE OF RAD 
Input detected. 

Debug flag. 


iz Number of elements including electron, identical to is*. 

(O50,OSC) 

J local index (VARIOUS ROUTINES) 

(SOA,500) 

JAST RFAO in as comma (,) OR period (,) FOR TEST OF WHETHER 

There is to be another case (see input instructions). 

JaT(N) atomic number of an element which contains ALPT(N) ATOMS 

In a species. 

(2UA) 

JB local index 


c PRMCOM 
c PRMCPM 
C PRMCOM 
C PRMCOM 
L EOUIL 

C EOTCPM 

C INTCOM 

C INTCOM 

C WALCOM 

C INTCOM 

L CEOM 
C UNICOM 

C BUMCOM 

L INPUT 

L REPAY 
C FQPCOM 

L BLIMP 
L INPUT 

L matsi 
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C EOTcnw 


JC 

JJ 

Ji 

JM 

JRHOVW 

JT 

JTIME 

KA(N»NN) 

Kappa 

kappat 

kat(k) 

KAUXO 

KEOOE 

KlM 

KInEQV 

KIP 

kk 

KkR(N) 

KqnRPT 

KOUT 

KPCH 


InOEX ON SURFACE CONDENSED SPECIES, 

(?0C,22A) 

LnCAL Index (various routines) 

(23A) 

LOCAL INDEX 

J-l, WHERE 'J' IS BASE SPECIES COUNT, 

SfT equal to unity if RHOVW or FLUXJ are read in FOR 
CURRENT TIME, OTHERWISE ZERO, 

LOCAL INDEX 

Time check flag, set to zero in current program 
heading titles for output of various units 

(o2A,07A.0RA, 11 A, 1 1B,20A) 

Index of the nodal point at which the velocity ratio is 
fixed, 

(o50,o7B,ORA,nA,l<)A,2<»A,5OF) 

Value of kappa when number of nodes is changed after trans- 
ition TO TURBULENCE 
(rt7B,0<JA,llA) 

Atomic number, 

(P0a,22A,24A,2SA) 

SfT TO 1. 

*nOT used in BLIHPJ* 

Fi.AG to call SLOPL 
(07a,0RA) 

Number of tape from which data is read, 

(n2A,o7A,O7B,ORA,o90,l«B,l9A,2aA,29A) 

Variable eouivalenceo to kIncom for dumping purposes 

Control variable o unless performing assigned temperature 
Calculation during kr(9)»6 energy balance problems (see 
definition of TFZ), 

(p5B,05C) 

local index (Various routines) 

array of input integers which control the Various options 

OF THE PROGRAM, IDENTICAL TO KRT, 

(?'1A,2«A,25A) 

Flag to call refit option, o-no call, i-call if necessary, 
2-HaS been called 
( n3A,07B,09A, 1 1 A, 29 a) 

number of Tape onto which data is written, 

CflaA,o3A,ORA,O56,O5C,O7A,o78,O9A,lOA,nA,110, 1«A,1«B,15B, 
i9A,20A,21A,22A,23A,2aA,25A,27A,28A,29A,50G) 

Unit number for punch output (stored in msdid) 

(n2A.llB) 


L 

L TRMRL 
L INPUT 
L REFCON 

L EOUIl. 

C INTCOM 
C UNICOM 

C INTCOM 

C RFTCOM 

C EOPCOM 

C TNTCOM 

C SLPCOM 

C INTCOM 

L DUMCOM 
C RUMCOM 

u 

C INTCOH 
C RFTCOM 
C INTCOM 
L 
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L INPUT 


KPHA(N) 

KPLT 

KO(N) 

KR(N) 

KO(H) 

KR2 

KR53T 

KR9(L) 

KRIO 

KRl7 

KS 

KTURB 

UN) 

L? 

L5 

LAM(K,J) 

LaR(N) 

LAST 


Phase index for a species, >=gas, 2ssolid, i=UQuio. 

(?4A) 

Unit number for plot variables output (stored IN.MS0(2)) 

(n2A,07A ,ll A ) 

Identical to kr(n)* by transmittal through call lists of 
Programs equil and input, also identical to ko(n)*, 

(O2A,03A,0«A,OSB,0SC,ObA,O7A,O<»A, 1 t A, 14A, ISB, IRA, tqT,20A) 

Control card for chemistry calculation (krcd = o for 
assigned temperature, 1 FOR SURFACE EQUILIBRIUM, 2 FOP 
ASSIGNED enthalpy, KR(2) AND KR(3) ARE 1 IF ELEMENT AND 
SPECIES data are to BE READ IN, OTHERWISE. 0. KR(a) IS NOT 
USED, KR(5) IS 0 IF IT IS NOT A BOUNDARY LAYER EDGE 

Solution, i for expansion, 2 fqR stagnation, kr(6) is o for 
Boundary layer calculation, 2 for surface mass balance, 
KrC?) controls debug, identical to K2(N)t. 

(20A,21A,22A,23A,24A,2SA,2BA) 

Array of Input integers which control the various options 
Of the PROGRAM, IDENTICAL TO KkR*. 

(03A,OflA,05B,05C,07A,07a,09A, JOA, 1 lA, J«A, J9a, 19T,26A,27A, 
29a) 

KkR(2) (FIRST GUESS FLAG) PRESERVES VALUE SINCE KkR(2) IS 
R?SET TO ZERO IN SETUP. 

(aOA) 

Stored value of kr(3) 

Values of kr(9) when wall boundary conditions are to be 
Changed at downstream stations, current kr(R) assignment 
Made near beginning of subroutine noncer, 

(oSb,0TB,09A) 

USED TO SAVE THE INPUT VALUE OF KR(IO) 

(o78,0RA,S0E,S0F,50G,S0H) 

Saved value for krut), 

(D3a) 

Surface material index (for each station) 

(05B,07B,09A) 

Flag indicating change in the refit parameters at turbulent 
Transition. 

(oTB,09A,IU,19A) 

Index on columns during inversion. 

Index on pyrolysis gas component 

(oBBfOSC.aOA) 

Index on char component 
( nSfl,05C,20A,21 a) 

Unity if j th species contains k th element, otherwise zero 

Index used for rearranging elements in matrix of nonlinear 
Equations (am), 

(05B,05C,27Aj 

ASSIGNED the VALUE PERIOD (,) THROUGH A DATA STATEMENT FOR 
UsF In test of WHETHER THERE Is TO BE ANOTHER CASE. 


L 

C INTCOM 
C EQPCnM 

C INTCPM 

L EQUIL 

L SETUP 
C INTCOH 

C RFTCnw 
C INTCr.M 
C CRBCOM 
C RFTCOM 

L RERAV 
C EQTCOM 

C EQTCOM 

C FQPCOM 
C ETACOM 

L BLIHP 
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C flLQCOM 


LEF(K) 

LEFS(K) 

LEFT(K.N) 

LEFUP 

LEFW(K) 

LI 

LIM(K,KK) 

U.(MK) 

LL(N) 

LLL(N) 

iNZ 

LPI 

LR 

LRK 

LS 

LSKIP 

M 

Ml 

MA (MK) 
Math 

MATIJ 

MAiai 


F( AG RECAROING missing elements for current solution, 5 

Al.WAYS PRESENT FROM EDGE, 2 ALWAYS PRESENT DUE TO UPSTREAM 

Injection, i present due to loc*l injection, o not present. 

{o3A,05B,05C,20A,29A) 

F| AG REGARDING MISSING ELEMENTS FROM PRIOR SOLUTION, SEE 
LfF for NUMERICAL VALUES, 

(o58,20Aj 

Temporary storage for lef(K) during tape flip-flop for 

N a 1 AND 2, 

(03A,20A) 

Update lef if equal to zero (aMiTs+ii-2 for sounoapv layer 
Solution, otherwisexu. 

Flag regarding missing elements for current wall solution, 
SfE lef for numerical values, 

{o5C,20A) 

LOCAL INDEX 

LaM(K,KK) for kkth rase species. 

(24A) 

Index on mass balance which is controlled by n th kinetic 
Reaction. 

(2RA) 

Row INDEX OF PIVOT FOR NTH COLUMN, 
column INDEX OF PIVOT for NTH ROW, 

LOCAL INDEX 

LOCAL index (Various routines) 

LOCAL index 
LOCAL index 

Index used to rearrange columns in reray oee l*R) 

LOCAL INDEX 

LOCAI, INDEX (VARIOUS ROUTINES) 

(SOM) 

COUNT ON PRINCIPAL SPECIES AFTER ORDERING 10. 

Ordering vector based on having Rat in descending sfouence 

(PflA) 

3 * neta - 2, number oe Taylor series expansions and linear 
Boundary conditions involving e(i,I) and its derivatives. 

(o5B,06A,27A,29A) 

neta ♦ 3, number of linearized momentum equations and 
Boundary conditions. 

(o5R, 12B, 138, 19A, )9T,27A,2<»A,3oC) 

2 * neta, number of Taylor series expansions and linear 
Boundary conditions involving g(i,I) and its derivatives 


c bldcom 

C FLPCOM 

L ECU II. 

C BLOCOM 

L LINMAT 
L INPUT 

C KTMCDM 

L PERAY 
L repay 
L RECASF 

L TRMBI.. 

L TPMBI. 

L REPAY 
L NPNCER 

L CRECT 
C KINCOM 

C INTCPM 
C INTCOH 
C INTCOM 
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OR THE K TH species, 3P(1,I,K), anO ITS DERIVATIVES.' 
(05B,06A,27A,29a) 


KAT2J 

NcTa, number of linearized energy or K TH elemental conser- 
vation EQUATIONS *ND BOUNDARY CONDITIONS, 
(b5B,l28,138,l«)A,l9T,27A,2<>A,JoC) 

C 

intcoh 

M0(N) 

STORES date INFORMATION 

C 

INTCOM 

melt 

Index on phase changing species. 

(?0A,21A,22A) 

C 

EQTCOM 

MI 

Ma(K) 

L 

KIMET 

HITS 

counter for boundary LAYER ITERATIONS, IDENTICAL TO ITS*. 
(20A) 

C 

INTCOM 

mm 

LOCAL INDEX (VARIOUS ROUTINES) 



MOA (J) 

Alphanumeric Variable, first of tmo portions of species 
Name, Identical to famoa*. 

(04A,0SB,11A) 

C 

BLOCOM 

MOBIJ) 

A( phanUmeric Variable, second oe t«o portions of spectes 
Name, identical to famqb*. 

(n4A,0SB,llA) 

C 

8LOCOH 

MODE 

STORED VALUE FOR KR(t)», 
(2DA,2U,22A) 

C 

EOTCOM 

MOE 

FLAG SET IN EOUIL AND USED IN cREcT, ZERO RESULTS IN EM- 
PHASIZING equilibrium equations during chemistry conver- 
gence, ONE results in emphasizing mass balances. 

L 

EOUIL 

MP 

INDICES USED IN REARRANGING REACTIVE MASS BALANCES ACCORD- 
ING To CONTROLLING REACTIONS, 

L 

KINfT 

MPI 

LOCAL INDEX (Various routines) 

L 

IMONE 

MPJ 

LOCAL INDEX (VARIOUS ROUTINES) 

L 

IMONE 

MSOd) 

Same as kpch 

C 

PRMCOM 

HSD(2) 

Same aS kplt 

C 

PRMCOM 

MSO(N) 

»nOT used in blimpj* n*j,«,s. 

C 

PHMf-OM 

MT 

NUMBER OE KINETICALLV CONTROLLED REACTIONS, 
(P2A,24A,2aA) 

C 

KINCOM 

mwe 

CONTROL variable (-1 FOR NEM CASE, SET TO ZERO aT THE END 
OF subroutine SETUP), 

(n2A,03A) 

C 

INTCOM 

Nl 

Number of rows ♦ i 

L 

RERAV 

N2I 

LOCAL index 

L 

NONCER 

N7 

Iteration at which diagnostic output will commence 

L 

EOUIL 

Nam 

NUMBER OF NONLINEAR EQUATIONS nOT INCLUDING NONLINEAR WALL 

C 

INTCOM 


Boundary conditions, nnleq«nrnl. 

(0SB,0SC,27A) 
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NBT 

■ Unit number for scratch output 

(o2A,03A) 

C 

INTCOM 

NBT2 

Unit number for scratch output 
(o2A>03A) 

C 

INTCOM 

NC 

number of components of The nonreactinc fluid mixture in 

KR(7)al option, 

(t«B) 

C 

STTCOM 

NCV 

nonconvergence count# Initially zero, incremented by one 
F nR Each nonconvercent chemistry solution. 

(20a) 

L 

fouil 

ND 

dimension transmitted through call 

L 

PERAV 

NO T SC 

Number of discontinuities.' 

(07A,0RA, 19Tj 

C 

PRHCOH 

nelm 

number of maximum linear errors elm. 

( 06 A) 

C 

ERRCOM 

NEN 

number of entries in entropy Table 

CoSB.OTA) 

C 

EDGCOM 

nenlm 

Number of maximum nonlinear errors enlm, 

(n6A) 

C 

frrcom 

Neu 

Nl/MftfR OF NODAL POINTS ACPOSS BOUNDARY LAYER INCLUDING WALL 
and Edge, 

C 

INTCOM 

netat 

New Value of neta when number of nodes is changed after 
Transition to turbulence 

(fl78,0RA,llAj 

c 

PFTCOM 

NFF 

number of species for which diffusion factors, FFKjj, ARE 
To BE READ IN, 

L 

INPUT 

NFIA(,I) 

FIRST OF TWO PORTIONS OF nAmE oF MOLECULE FOR WHICH DIFFU* 
SlUN factor, FF(J), is being read in, 

(24A) 

L 

INPUT 

NFIB(J) 

Second of two portions of name of molecule for which diffu- 
sion FACTOR, FF(J), IS BEING READ IN, 

(2«A) 

L 

TNPUT 

NfM 

Number of significant species plus number of nonpresent 
elements. 

L 

MATER 

niteh 

number of times (or SUBCASES), 

(02A,03A,0<»A) 

C 

INTCOM 

NL 

snSD(5)» flag for using namelist input JmislIS and SSTALIS 

(oTA,09A,19A,29A) 

L 


NLF.O 

NUMBER OF LINEAR EQUATIONS, MA T 1 I*NSP*m a Ta I , 
(2TA) 

C 

INTCOM 

NM 

NUMBER OF ROWS less ONE 

L 

REPAY 

NN 

number by which columns exceed rows in principal array 

L 

REPA V 

NNLEO 

MaTU ♦ NSP * MAT2J, TOTAL NUMBER OF NONLINEAR EQUATIONS. 
(o5B,05C,19A,19T,27a) 

C 

INTCOM 
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nm 

NUMBER OF COLUMN VECTORS tN SECONOARV ARRAY 

L 

rfray 

NON 

Control variable used after returning from subroutine out- 

Put (-1 WHEN RERUNNING FROM OUTPUT DURING ITERATIONS, 0 
When CONVERGED. Al WHEN NQNCONvERGED AFTER ALLOWED NUMBER 

Or iterations). 

(n2A.04A.lU. BOA) 

c 

INTCOM 

HP 

Number OF columns in primarv array. 

L 

repay 

NP(N) 

Identifies WHICH input stations are used as solution 

Stations 

(nRB.UB) 

L 


npmi 

NPOINT - 1 
(0TB.0RA.50G) 

c 

PFTCOH 

NPOINT 

Number of points used to define the refit curves 
( oTa.ORA.50F.50G) 

c 

RFTCDM 

NPR 

Number of derivative properties to be evaluated 

L 

PROPS 

NRNl 

NSP * 1. number of reduced nonlinear equations, 

(058.05C.2TA) 

c 

INTCOM 

NS 

Number of streamwise stations, 

(oBA.OTA.OTB.ORA.ORB. 1 lA.llB.UA. IRT) 

c 

INTCOM 

NSO(5) 

Flag for use of namelist smislis and sstalis 
(oTa.ORA, 1RA.2RA) 

c 

PRMCOM 

NSP 

number of elements in The system, not including electrons.’ 

(o58,05C,06A,07B,ORA,nA,aOA,25A.27A) 

c 

INTCOM 

NSPEC 

NUMBER of species, IDENTICAL To N*. 
(05R.11A) 

c 

BLOCOM 

NSPMl 

NSP-l 

(n4A,O50,O5C,O6A,O7A,O8A,oRA,loA, IlA.lBB, 13B, IRA, J9T,?0A, 
25A,27A,2RA,50G) 

c 

INTCOM 

NTH 

defined in input INSTRUCTIONS SINPUT, STORED IN ITFM2) 

L 

GEOH 

NTIME 

currently set to UNITT, 

(oTa.ORA) 

c 

INTCOM 

NUL 

Zero, 

L 

HISTXI 

OMEGA 

Parameter of this name used in transport property calcu- 
lations introduced in E0(29) NUMERICALLT equal to 
1.’07/(T/106,7)**0.159 

L 

PROPS 

OUTEOV 

Variable eouivalenced to outcom for dumping purposes 

L 

DUMCOM 

P 

pressure. 

(o98,20A,2U,22A,23A,24A,25A,5oF,50G) 

c 

EOPCOM 

PA(K»KKi 

Partial derivative of property k with respect to log t, 

LOG AA. LOG(Y(KK-2)), 

L 

PROPS 

PE(ti 1) 

static pressure, 

(03A.05B,05C,07A,nA.14A) 

c 

FDGCOM 
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PHIKd.K j 
PHTKP(K) 

PJD 

PIEA3P 

PIM 

PIN 

PIN 

PInF 

PINL 

PITASIN) 

PKPCMKi 

PKR(MK) 

PLM 

PMR(MK) 

PMU(K,MK j 

PMUl 

Pmu2 

PMU6 

PNU3(K) 

PR(1) 

PRA 

PRB 


SnURCE TERM FOR KTH ELEMENT (EQUAL TO ZERO IN MIXEP EQUI- 
LIBRIUM-FROZEN eOUNOARV LAVER). 

(i5B,25A) 

Qfrivative of phik »iith respect to eta, 

(0BA,13B) 

Pfl) IN MIXING length formulation, 

( { R A ) 

LnCALLV defined variable 
Product of damping factors, 

(05B»20A) 

p at node i-i 

P • (l0*«(«5j) USED TO initialize PARTIAL PRESSURES.' 

Same as in eouil, 

FrEF-STREAM static pressure 

(o7A,20A) 

LOG (PIN). 

INPUT Values of normalized edge pressure 

(ORR, HB) 

Forward rate of reaction, 

(?8A) 

reverse rate of reaction, 

(?8A) 

Summation vn(J)*wtm(j) for all condensed species, 
net Forward rate of reaction, 

( 28 A) 

Stoichiometric product coefficient on k th base species, 
(p«a) 

Vn(J) * FF(J) SUMMED OVER ALL GASEOUS SPECIES (sVMUl *P). 

VN(J) A WTM(J) / FF(J) SUMMED OVER ALL SPECIES N* (sVMI.J2«P) 

Vn(J)/(FF(J) * (WO«-VN(J) * FF(J) * WD6)) SUMMED OVER ALL 
SPECIES N*. 

Summation vnu(j.k) • vn(J) over all gases j, 

(?1A,22A,23a) 

prandtl number, 

(08a, 1 lA, 1«A,2SA) 

Constant in the prandtl number relation oefining pr (see 

PrOUM), 

(l«A,JflB) 

Constant in the prandtl number relation defining pr (see 
Prdum), 

(i«A, laB) 


C PRPCOM 

C PRPCCM 

C EPSCOM 

L TRMBI, 

C BLQCOM 

L TRMHl 
L EfJUIL 
L mater 
C EDGCOM 

L EOUIL 
L 

C KINCOM 

C KINCOM 

I EOUIL 
C KINCOM 

C KINCOM 

L PROPS 
L PROPS 
L PROPS 

L HATER 

C PRPCOM 

C SITCOM 

C SITCOM 
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PRC 

CnMSTANT IN THE PRANOTL NUMBER RELATION DEFINING PR (SEE 
PROUM), 

(?4A,i4B) 

c 

STTCOM 

PRO 

Constant IN the pranotl number relation defining pr (see 

PRDUM), 

({4A,14B) 

c 

STTCOM 

PRDUH 

Pranotl number if considered constant, otherwise, it is a 
Constant in the relation/ propbdum*pra * t ** prb*prc*t 
A* prd, used in kr( 7)» i option onlt, 

(i«A,14B) 

c 

STTCOM 

PRE(L) 

Ratio of local static pressure to stagnation pressure ptft 

(OTA,0’A,lttA) 

c 

PRMCOM 

PREQ 

Variable equivalenceo to portion of prpcom for storage 
Transfer 

l 

NONCER 

PRF 

LnCALLV defined variable 

L 

TRMBL 

PRMEQV 

Variable equivalenced to prmcom for dumping purposes 

L 

DUMCOM 

PRMU(K,HK) 

pmu-rmu 

c 

KINCOH 


(2flA) 



PRP 

LOCALLY defined VARIABLE RELATIVE TO ARRav OF DERIVATIVE 

Properties being calculated 

L 

PROPS 

PRPEOtf 

Variable equivalenceo to prpcom for dumping purposes 

L 

DUMCOM 

PRR 

Argument representing pressure 

L 

EOUIL 

PRT 

Turbulent pranotl number 

(0TB,IRA) 

c 

EPSCOM 

PTE(L,li 

LOCAL TOTAL PRESSURE, 
(flTA,20A) 

. C 

EOGCOM 

PTETdi 

Stagnation pressure. 
(o3a, 07A,07B,09A,0RB, t U,llB,laA) 

C 

PRMCOM 

PTETC2) 

normalizing factor for PRESSURE, SEE INPUT INSTRUCTIONS 
(nRA) 

C 

PRMCOM 

PTET(Q) 

Stores input value of rtm, throat radius 

C 

PRMCOM 

PTET(H) 

MbU,50. stores normalized axial coordinate of the 
Solution staticins 

(03A,07A,09B,UA,Ue) 

c 

PRMCOM 

PV(N,NN) 

Derivatives of vmu3 (nn«i), vmu4(nnb2),htil(nns3) and zk(k) 
(nN»3+K) with respect to enthalpy (NbI), pressure (N=?) 

And K TH elemental mass fraction (NsStK). 

L 

PROPS 

QA 

locally defined variable 

L 

SLOPn 

QB 

locally defined variable 

L 

SLOPO 

oc 

locally defined variable 

L 

SLOPO 

oorFu 

Defined in biub -K*oT/or 

L 

OUTPUT 

01 

number introduced into calculation of betam (WHICH differs 

L 

REFCON 
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Fn» V4RI0US BODY SHAPES) DUE In CHANGE In\ hANNER OP INTE- 
GRATION IN THE VICINITY OP THE STAGNATION' POINT OR LEAPING 

eoge. 


OR(I) 

NpT radiation flux toward the surface (SET equal to ZERO IN 
Blimp,). 

(P8A, l«A) 

c 

prpcOM 

OS 

LnCAULY defined variable 

L 

TRMBl. 

Qw 

OTFFUSIVS HEAT FLUX AT THE “ALL# C32/C3 EVALUATED AT WALL. 
(n5B) 

C 

FLXCOM 

R 

locally defined variable 

L 

ERP 

RAIJ.N) 

Curve fit constant for thermodynamic data ithe Quantity ai 

OtSCUSSED in group 13 OF INPUT INSTRUCTIONS), N«l, 2, OR 5 
FoR LON TO HIGH TEMPERATURE RAnGES, RESPECTIVELY. 

(2lA,24A) 

C 

EQPCOM 

RADElM) 

Incident radiation flux absorbed by the surface at station 
srt), 

(o7a,076,ORA, IIA) 

C 

PRMCOM 

RAOFL(S) 

auCL FOR AXISYMETRIC FLOW, ml FOR 2D FLOW 
(nRA,tlA) 

C 

PRMCOM 

RAOFLIH) 

■?2/7 FOR AXISYMETRIC FLOW, al/2 FOR 2D FLOW 
(PRA, 1 lA) 

c 

PRMCOM 

RaPFLIT) 

Saves rokapw(net enthalpy flux to wall Iwradfli^j/radfl (5) 

(It A) 

c 

PRMCOM 

RAOFUfl) 

stores wall area 

(114) 

c 

PRMCOM 

RAOFLIP) 

stores total heat to wall 

(llA) 

c 

PRMCOM 

RaOR(L) 

Ratio of incident radiation flux absorbed by the surface to 
ThE value at station S(1), RAOFL, 

(074) 

c 

PRMCOM 

RAOS(L) 

Incident radiation flux absorbed by the surface, 
(o3a,0SC,07A) 

r 

PRMCOM 

RaT(MK j 

Largest of pkr, pkr, pmr, measure of reaction importance.' 

(PflA) 

c 

KTNCOM 

ratlim 

constraint used to flag the refit option, 

(n7R,QRA, lU, 1 IB) 

c 

RFTCOM 

ReiJ.N j 

curve fit constant for thermodynamic data (The quantity A2 

(21 A,2<IA) 

c 

FQPCnM 

RCtJ.N) 

Curve fit constant for thermodynamic data (the quantity, as 

DtSCUSSED IN group 13 OF INPUT INSTRUCTIONS), Nsl, 2, OR 3 
FOR LOW TO HIGH TEMPERATURE RANGES RESPECTIVELY, 

(21A,2«A) 

c 

EQPCOM 

RDCJ.N) 

Curve fit constant for thermodynamic data (the quantity au 
DISCUSSED IN GROUP 13 OF INPUT INSTRUCTIONS), Nel, 2, OR 3 

For low to high temperature ranges respectively. 

(2tA,24A) 

c 

EOPCOM 
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RE(JiN) 

CURVE FIT CONSTANT FOR THERMODYNAMIC DATA (THE QUANTITY AS 
DISCUSSED IN CROUP 13 OF INPUT INSTRUCTIONS), N«l, 2, OR 3 

FnR LOW TO HIGH temperature ranges respectively. 

(2lA,24A) 

c 

eopcom 

REn 

Reynolds number on del where del is the y dimension normal- 
izing parameter, ALSO, REOa -VMUE(L)* C3 
(iRAi 

c 

FPSCOM 

REF2 

LOCALLY defined VARIABLE 

l 

OUTPUT 

REF3 

LOCALLY defined VARIABLE 

L 

output 

REF« 

LOCALLY defined variable 

L 

OUTPUT 

REG2 

LOCALLY DEFINED VARIABLE 

L 

OUTPUT 

REG3 

LOCALLY defined VARIABLE 

L 

OUTPUT 

RERAD 

Radiation flux from wall 

L 

OUTPUT 

RES 

Reynolds number based on distance s, 

( it A ) 

C 

OUTCOM 

reta 

LOCALLY defined VARIABLE 

L 

OUTPUT 

RETHMo 

REYNOLDS number ON MOMENTUM THfCKNESS 

L 

OUTPUT 

RETR 

Transition Reynolds number based on momentum thickness, 

(o5fl,07B,I9A) 

C 

EPSCOM 

RF(JiN) 

Curve fit constant for thermodynamic data (the quantity a<> 
discussed in group 13 OF INPUT INSTRUCTIONS), Nsl, 2, OR 3 
FfiR LOW TO HIGH TEMPERATURE RANGES RESPECTIVELY, 

(21A,24A) 

C 

EOPCOM 

RG(J»N) 

CURVE FIT constant FOR THERMODYNAMIC DATA (THE QUANTITY A7 

Discussed in group is of input instructions), n»i, g, or s 
For low to high temperature ranges, respectively. 

(2lA,2flA) 

C 

EOPCOM 

RHOCI) 

Density of gas mixture, 

(nSA, 1 lA, 14A, 19A, 1RT,25A) 

C 

PRPCOM 

RHOE(L) 

Density of boundary-layer edge gas, 

(nSB,07A,0BA, 11 A, Ha, IRA, 19T,25A) 

C 

EOGCOM 

rhoinf 

Free-stream density 

(o5B,07A,20A) 

C 

FDGCOM 

RhOP(I) 

Derivative of rho with respect to eta, 

(rt50,O8A, IRA, IRT) 

C 

PRPCOM. 

RHOVS 

-RH0VW(L,1)*C3 

(05C,1RA) 

C 

EPSCOM 

RHOVW(l,1) 

Converged value for surface ablation rate. 
(o5C,07A, 11A,25A) 

c 

WALCOM 

RHR 

Density, 

L 

EOUIL 


RI 


LOCALLY defined VARIABLE 


L TRMBL 



RHMC 

Ratio of molecular weight ostained by summing partial pres- 
sures OVER ALL SPECIES TO THE MOLECULAR WEIGHT OBTAINED BY 

Summing over gas phase species only. 

c 

eqtcom 

RMMGS 

RMMG*RMMG 

L 

mater 

RMU(K,MK) 

Stoichiometric reactant coefficient on k th base species.' 

(?4a»2BA) 

c 

KINCOM 

RM03E 

effective nose radius, 

(0TA,0RA) 

c 

PR*^CDM 

RflKAPd) 

1 FOR PLANAR BODIES, LOCAL 60Dy RADIUS FOR axISyHmetrIC 
Bodies, 

(nSB,0 7A,07B.0RA,llA, 1 IB, tRT) 

c 

PRMCOM 

RR 

Density ratio 

L 

TRMBt 

RRFO 

LOCALLY DEFINED VARIABLE 

L 

TRMBL 

RRP 

LoCALLV defined variable 

L 

trmrl 

RRPD 

locally defined VARIABLE 

L 

tkmbi. 

RSIC(MK) 

Relative significance of kinetic reaction in mass balance.’ 

(?«A) 

c 

KINCOM 

RSOA 

rmmgs»fff/aa 

L 

MATER 

RT 

perfect gas constant, r, times temperature, T, 

L 

KINET 

RTM 

Throat radius, eguivalenceo to ptetir) 

(09A, UB) 

c 

PRMCOM 

S(U 

StReAMWise coordinate along boot, 

(03a,05B,07A,09A, HA, 14A,19A,1RT) 

C 

PRMCOM 

S(N) 

Largest contribution to term in n th column. 

L 

OERAY 

SAtPH 

SIGNED value of ALPH 

L 

trmbl 

SB( J) 

Entropy, 

(?0A,21A,22A) 

C 

EQTCOM 

3C(I) 

RpPERENCE Schmidt number, see eD( 30) 
(rtBA, 1 1 A, 14A,25A) 

C 

PRPDDM 

3CT 

Turbulent schmidt number 

(070, 19A) 

C 

EPSCOM 

3D(N) 

Ratio of residual term in n th column to sin). 

L 

RERAY 

30UM1 

VaRTA0LE of integration in calculation of XI IN REFCON, 
tfmporarv storage area In other routines, 

(o7A, 19T) 

C 

TEMCOM 

SDU«5(L j 

variable of integration in calculation of Fw in RFFCON, 
Temporary storage area in other routines, 

(o7A, 19T) 

C 

TEMCOM 

SDV 

locally defined variable 

L 

TRMBI, 

3F(MS) 

streamfunction in Entropy layer table 

C 

fdgcom 


Co50,O7A) 
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SHAPE 

SHEAR 

SHIP 

9HHELT 

SIGHA 

3IP 

3LaM(K) 

Sm(J) 

SHELT 

3P(N#I.t<) 

SPO(H) 

8P0UH(|i() 

3PE(K,L*n 

SPEA8F. 
SPuECn.K j 

3plEH(k) 

Spnew 

SPNEW 

3pnLEM(K) 

SPVI(K,l» 1) 

3REF 

3S 


DELST/THHQM# 3HAPE FACTOR. 

WALL shear given by CAPC(1)/ALPH • VmUE(IS) * UEdSi/CBR * 

F(5,l j/32.l7«0 

(tUi 

3AVEI5 Value of input enthalpy, 

enthalpy or entropy of fusion of a species if TEMPERATURE 

EQUALS FUSION temperature OF THAT 3PEC1E8, 

COLLISION CROS3 SECTION FOR REFERENCE SPECIES 
(2''4A,25Ab 

Entropy input, 

(o5b#20a,22A) 

defined by EQ(31) 

(2tA,22A,23A) 

Entropy of fusion. 

SH(J) IF J TH species IS CHANCING PHjtSE , OTHERWISE fl. 
(2DA.21A,22A) 

elemental mass fraction ( Hat ) aNO ITS DERIVATIVES OF ORDER 
N-I with RESPECT TO ETA, 

(o5B,0SC,06A,07A,08A, JOA,UA,12B,i9A,20A,2Ra,50C) 

Dl * SPIN, I, K) • D2 • HSP(1 ,N,k) for NbI THROUGH 5, RJ i* 
3P(3,I«l,tO * 02 ♦ h 3P(I-1,3,K) FOR N»a, 

dimensioned variable used in Various subroutines but not 
Used for transmitting information between subroutines.' 

Ej E mental mass fraction at Boundary layer edge, 

(06A,o7A) 

saved value of piease 

Error for the taylor series expansions involving sph.i.k) 
AND their derivatives, 

(05B,06A,30C) 

MaXIHUM value of 8PLE(N,K), 

(OCA j 

Variable used to denote presence of new element in system 
Variable used to denote presence of new element in system 
ERROR FOR The linearized ELEHEnTaL conservation equations.' 

(fl«A) 

converged value for elemental mass fraction of boundary 
LAYER GAS at the wall, 

(n5C,07A,20A,25A) 

entropy of reference streamline 

(o5B,07A,20A) 

locally defined variable 


C OUTCOM 
C OUTCOM 

l fquil 
L mater 

C E.QTCOM 

C EOTCOM 

C EQTCOM 

C EGPCOM 
C EOTCOM 

C VARCOM 
L histyI 

C TEMCOM 

C EOGCOM 

L EQUll. 

C ERRCOM 

C EROCOM 

L PNUCER 
L NONCEB 
C ERRCOM 

C WAUCOM 

C EOGCQM 
L SLOPD 


I I 
1 
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SSIP 

SSTAG 

SSTAGA 

STEF 

STTEOW 

STURB 

SUMO 

SUMG 

SUMK 

SUML 

SUMN 

SUMP 

SUMR 

T 

T(I) 

TaU(K,KK) 

TAUW 

TC(J) 

TCW 

TE(U 

TEMfOV 

TF(J) 

tfmax 

TFO 

THCOND 

THEtEHfK) 


Saved value of input entropv. 

Stagnation entropy based on i atm pressure. 

Stagnation entropy based on actual pressure, 
stEfan^boltzmann constant, 

(05C,09A) 

Variable eouivalenced to sttcom for dumping purposes 
Value of s at which transition to turbulence occurs 

(058» 19A) 

Rt*0 log KP/0 log t of kinetic reaction. 

Off. DIAGONAL COLUMN SUMS OF GAMK USED TO STRENGTHEN 
DIAGONAL DOMINANCE OF ARRAY, 

LOG KP OF kinetic REACTION, 

LOG (SUMN/P) 

(PtA,22A) 

Summation OF PARTIAL PKESSUffes fOP ALL GAS phase species. 

(alA,224) 

Sum of product y(n) 

Sum of reactant y(ni 

Static temperature in deg k, identical to z* 

(aDA,21A,22A,23A,2^A,2aA) 

STATIC temperature in deg r, Identical to tt*. 

(oSB,05C,OaA,llA#l«A) 

Intermediate array used in forming um. 

Wall shear 

-n LOG KP/0 log T for formation reaction of J Th species 
( 0 Se, 2 lA. 2 aA, 23 A, 25 A) 

TC evaluated at the wall for the (ISP)TH element. 

(nSB,05C) 

Temperature at boundary layer edge. 

(o7A,l«A) 

Variable equivalenceo to tcmcom for dumping purposes 
Fail temperature of species j. 

maximum fail temperature 0^ candidate surface spEcifs.' 

Surface temperature to which convergence is temporarily 
attempted during energy balance problems using KRf9)r<,. 

(OSB,05C) 

Enthalpy thickness 

Mass thicknesses given by ouz(k)/oum(k) where duzik) is the 
Summation OVER kk of C89/alph • ( (F( i , neta )-F( t , ii ) * 


L EOUIL 
L STATE 
L STATE 
C CRPCOM 

L OIJMCOM 
C TURH 

L KINET 
L EOUIL 

L KINFT 

C EOTCOM 

C EOTCOM 

L KINET 
L KINET 
C EOPCOM 

C PRPCOM 

L INPUT 
L TRMbl 
C EOTCOM 

C NONCOM 

C EDGCOM 

L OUMCOM 
E FQPCOM 
L INPUT 
C nUMCOM 

L OUTPUT 
L OUTPUT 
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THENGV 

THMOM 

TIMD 

time(i) 

TIMEtNj 

tion 

TrTL(N) 

TJ(N) 

TKf J#N) 
Tk(K»N) 



TM6X 

TMIN 

Tmu3 


TOtK.N) 


TP(N) 

tree 


TS 

TT(I) 



3P(l,NETA»KKj»X3PC3,KK))/ WTH(kK), * CIJ(K.KK) AND DUM(K) IS 

The summation over KK or (SP(l,NETA,KK)-SPn» 1,KX)/WTM(KK) 

* CIJ(K,KK), 

ehergv thickness given bv csr/alph * nrn/NETA)-Ffi,i)) 

» G(l,NETA)-XG(5))/(G(l.NETA)-Gn,n) 

OUj 

MnMENTUM THICKNESS GIVEN 0V CBP/ALPH * ( (E ( 1 , NET A j -F ( > , 1 ) > 
-xH«5)/ALPH) 

(itAi 

Real elapsed time since beginning of solution 

Time (OR SUBCASE) 

(o3A>0RA,nA»UB) 

Noll, so 9 TORES OELBO 
(1 tAillB) 

TpMPERATURE BELOW WHICH IONIZATION WltL BE SUPPRESSED 
TvPF of averaging EMPLOVED to cMK(N) 

Same as tr(n) except in degrees k 

(ti(R) 

Mass (Naj) or hole (NeZ) fraction of species J in the 

MIXTURE 

(?4B) 

GRAM atoms of element K PER unit mass of component n, 
('{OB|20A,24A) 

Maximum or minimum temperature if delta t is positive or 
NeOATIVE, respectively. 


Maximum temperature allowed for current iteration.' 

(pOA,2lA,Z2A,23A} 

MINIMUM temperature allowed FOR CURRENT ITERATION.' 
(20a,2)A,22A,23A) 

Vn(j) / FF(J) summed over all SPECIES N*, {bVMU5*VmUZ*P) . 
Derivative of t with respect to eta. 

(ASB.OSA, 19A) 

Gram atoms of base species k per unit mass of component n. 
See w(n) for definition of components 

(ftSC,20A,21A,24A) 

temperature range limits in degrees r 

(i4A,l4B) 

Group of terms which appears in derivatives of pi.' 
(REYNOLDS number ON DELST)/C26/(2,*CAPC ( I ) atZ* YAP**2*P I ) . 
(19A) 

Phase change temperature. 

Static temperature in deg r* identical to t+, 

(20A,25A) 


c OUTCOM 

C OUTCOM 

L ITCRAT 
c PRMCOM 

C PRMCOM 

L EOUIL 
L FELTRU 
C EOTCOM 

C EOPCOM 

C EOPCOM 
L CRECT 

C EOTCOM 

C EOTCOM 

L PROPS 
C PRPCOM 

C EOPCOM 

C STTCOM 
C EPSCOM 

L input 

c pRPcriM 
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TTMAX 
TTMIN 
TTVC 
TU( J*N) 

TVCC(TS) 
TW(L. 1 ) 
TWCCN? 
UCD 

UCE 

UCL 


MAXIMUM temperature allowed roR this solution, 

(?0A,21A,22A) 

mtnimum temperature allowed for This solution, 

(?0A,2iA,22A) 

Variable t used in transverse curvature calculations 

(o50»O8A, IRA, 19T) 

Upper temperature of temperature range for inputting 
Thermodynamic property data for species j, nsi or a for 
LOWER and upper TEMPERATURE RAnCES, RESPECTIVELY, 
(j>flA,21A,22A,a3A,aUA) 

Constant used in tvc calculations 

{11A,1<>T) 

CONVERGED VALUE OF SURFACE TEMPERATURE, 

(nSCiOTA j 

BaSE temperature used in HEAT-TRANSFER-COEFFICIENt 
calculation 

Unit conversion factor to get from i/o units to blimp 
Units of density 

(BZA.OTA.ORA, UA, 1 18, 1«A,20A,29A) 

SfE UcO, for energy 

SFE UCD, FOR LENGTH 


UCM 


see UCO, FOR mass 


UCmF 

UCP 

UCR 


see UCD, FOR MASS FlUX/AREA 
(itA) 

SfE UCD, FOR PRESSURE 
SFE UCO, FOR ENERGY FLUX 


UCS 

UCT 

UCV 

UE(L) 

UEOCE 

UEItN) 

UGH 

UINF 

UKAP 

UMCK.KK) 


SfF. UCD, FOR shear 

SFE UCD, FOR TEMPERATURE 

3fE UCO, FOR viscosity 

BOUnDARY-LAYER edge velocity, 

(o'5B,07A,09B, ha, 1«A, i9A,20A) 

SET EQUAL TO UNITY IN PRESENT PROGRAM. 

(nSB) 

Input edge velocity, see input instructions *input 
normalizing factor in GAUSSIAN ELIMINATION, 

FrEE-STREAM VELOCITY 
(n58,07A,20A) 

Edge velocity normalized by reference velocity 

MOLECULES of base SPECIES K IN ELEMENT KK, 

(2<iA) 


C EGTCOM 
C EOTCOM 
C EOGCOM 
C ERPCOM 

C EOGCOM 
C WALCOM 
L FELTRU 
C UNICOM 

C UNICOM 
C UNICOM 
C UNICOM 
L 

C UNICOM 
C UNICOM 
C UNICOM 
C UNICOM 
C UNICOM 
C EOGCOM 

C EDGCOM 

L GEOM 
L INPUT 
C EDGCOM 

L NONCER 
L INPUT 
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( 19 *) 


UNTT(N') 

CnMPtEX PAcTOR having to do with damping or KINETTCALLV 
Controlled mass balances. 

c 

KINCOM 

UHIT(N) 

Smoothing eactor related to imposing residual error into 
Reactive mass balances as a result oe boundary layer 
Damping, 

L 

kinet 

UT*U 

eriction velocity used in turbulent model eormulation 

L 

TPMBL 

V 

LOCALLY defined VARIABLE 

L 

input 

V* 

locally defined variable (VARIOUS ROUTINES) 

L 


VAREOW 

Variable equivalenceo to varcom for dumping purposes 

L 

ouMcnw 

VB 

locally defined variable (VARIOUS ROUTINES) 

L 


VC 

locally defined Variable (various routines) 

L 


VD 

Locally deeineo variable (various routines) 

L 


VE 

locally defined Variable (various routines) 



VEL 

veLociTY, 

L 

EQUIL 

VEL30 

souare oe velocity. 

L 

FQUIL 

VINT 

P * 10»»(«6) 

L 

INPUT 

VINT»(n) 

Wake clamping factors for cebeci and kEndall wake law 

c 

EPSCOM 

vjkw(k) 

diffusive mass flux of base species at the wall* CK6(K)/C3 
evaluated at the wall (IN OUTPUT, VJKW(K) IS MODIFIED TO 
Represent diffusive mass fluxes of elements at the wall.' 

(05R,ttA) 

c 

FLXCOM 

VK(K) 

SP(I,I,K) 

L 

props 

VKAP 

Flag for body shape (o for planar, i for axisymmetric). 

(aTA.ORA) 

c 

PRMCOM 

VKl 

LOCALLY defined variable 

L 

KINET 

VK2 

locally defined variable 

L 

KINET 

VK3 

LOCALLY DEFINED VARIABLE 

” L 

KINET 

vl*m 

mixture thermal conductivity given by RHO(I) • OBAR • VHU6 

* 1.'9869 / (WM * VMUl), 

L 

PROPS 

VL*M(J,K) 

Lambda, defined in EQ(3I) 

(20A) 

E 

NPNCOM 

VLNK(J) 

LOG KP FOR formation REACTION oF J TH SPECIES 
(oSB,20A,2U,22A) 

c 

EOTCOM 

VUNKW 

vLnk evaluated at the Wall for the (isp)Th element. 
(05B,05C) 

c 

NONcnw 

VMACH 

Mach number 

L 

EOUIU 

VMACH 

Mach number. 

L 

STATE 
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VMiTCNj 

VMOOTR 

VmoQTI 

VMECH 

VMU(I) 

VMUJ 

VMU2 

VMU2 

VHU3 

VMU3P 

VM(j«P 

VMUS 

VMU6 

VMU12 

VMUA 

VmUB 

VMUC 

vmuo 

VMUE(L) 

VMW(J) 

VmwE 

Vn(J) 

VnoRm 


Set of variables starting with ci to be stored on tape. 
Total NASS Flux in the bounoarv later, defined in sha 
Mass flux in the boundary layer from the inviscio flow 
Surface mass loss rate due to liquid layer flow 
vtscosity of mixture, computed in subroutine props as 

RhO(I) a OBAR • VMUS/VMUl 
(tU,lRA,25Ai 

coefficient MUl defined in E0(32) 

Same as VMU2 In PROPS, 

Coefficient hu2 defined in eoiss) 

Property of the gas mixture which reduces to i/wm for foual 
Diffusion coefficients, see eoiso) 

(t«A,2SA) 

OrRIVaTIVE of VMU3 WITH RESPECT To ETA, 

(nflA) 

Derivative of vmu« with respect to eta. 

(rtflA) 

Contribution to mixture viscosity given by amus * rmmg/aa.‘ 

Contribution to mixture thermal conductivity given ry (pmija 
♦ CPTIL/1.RS69-2.5 * TMU3) / P 

Product of the twq coefficients vmui and vmu2 

(oBa, iua,25A) 

Constant in the viscosity relation MuafvMuA*T**vMijBi/(VMuc* 

T+VmUd). used in KR(7)at OPTION ONLT 

(?«A,iaB) 

constant in the viscosity relation defined under VMUA. 

(IRA, 1 as) 

constant in the viscosity relation defined under VMUA.' 

(iaA.ias) 

constant in the viscosity relation defined under VMUA. 
CtaA.lRB) 

Viscosity at boundary layer edge. 

(OBB.07A, 1 I A, IRA, 19T.25A) 

MOLECULAR WEIGHT OF THE SPECIES J 
(ilA. 1RA.20A.25A) 

Molecular weight of gaS at boundary layer edge, 

(iRA,20A,25A) 

Partial pressure. 

(20A.21 A. 22 A. 23 A. 2R A. 2S A) 

Normalizes error in momentum equation 


E HISCOM 
L OUTPUT 
L OUTPUT 
L OUTPUT 
C PRPCOM 

L PROPS 
L MATER 
L PROPS 
C PRPCOM 

C PRPCOM 

C PRPCOM 

L PROPS 
L PROPS 

C PRPCOM 

C STTCOM 

C STTCOM 
C STTCOM 
C STTCOM 
C EOGCOM 
C PRPCOM 
C EOGCOM 
C EQPCOM 

L nnncER 
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VNU(J,K) 

stoichiometric coefficient on k Th base species In forma- 
tion OF J TH SPECIES, 

(o3C«1U«20A,21A#224#23A,20A/25A) 

C 

EOPCOM 

VVOL 

uocalut defined variable 

L 

REFCOM 

W(N) 

component mass flux at hall* H(1) is edge GAS/ w(2) IS PY- 
ROLVSIS CASf W(5) 18 char 

(o3A,05B,OSC,UA/20A,23A) 

C 

BLOCOM 

WalEQV 

Variable eouivalenced to halcom for dumping purposes 

L 

DUMCOH 

WALUfK) 

Normalized diffusive mass flux at wall, defined by eoiss) 

(A3B/0SC«UA,20A) 

C 

FLXCOH 

mal'lo 

Normalized diffusive heat flux at the wall, defined by 

Eo, (36), C32 evaluated AT THE WALL 

(oSr,osc,iia) 

C 

FLXCOM 

WaLLOJ(N) 

Global set of wallq and mallj. 

E 

FLXCOM 

«AT(K) 

atomic weight. 

(tlA,24A) 

C 

EOPCOM 

MD2 

l.'2 * AISTAR / PMUl 

L 

PROPS 

MD4 

0'2B4 • WOZ 

L 

props 

W05 

0.'32 -* AISTAR / PMUl 

L 

PROPS 

W07 

WnZ/PMUl • H02 

L 

PROPS 

woa 

Wn4/PMU1«W05 

L 

PROPS 

WOOT 

ablation rate in the converged solution of material CON- 

STDEREO under KR(R) b 3 THROUGH 6 

(OSB.OBC) 

C 

BUMCOM 

MOZ 

Constant i,365 which enters into calculation of mixture 
Transport properties. 

L 

PROPS 

NM 

MOLECULAR weight OF MIXTURE, 
(20A,2lA/2SA) 

C 

EOPCOM 

MS 

Sum of pyrolysis and char mass rates. 

L 

hater 

KSUM 

Wfjj ♦ W(2) ♦ W(3) 

L 

NONCER 

MT 

MOLECULAR weight AS SUMMED, 

L 

INPUT 

MTG 

Pressure • gas molecular weight, 

(?tA,22A,23A,25A) 

L 

MATER 

mtl 

Summation of vn{J) * wtm(j) for all condensed species.' 

(i>0A,21A,22A,23A) 

L 

MATER 

MTH(J) 

Molecular weight of species j, 

(05S,05C, 1 tA,20A,21A/22A,23A/2aA) 

C 

EOPCOM 

X(N) 

corrections of nonlinear variables in chemistry solution. 

E 

EOTCOM 

XI 

Damped value of delta ln t. 

L 

CRECT 

XO 

LOCALLY DEFINED VARIABLE 

L 

SLOPO 


4-209 



c COECHN 


XG(N) 

xia) 

XICONfL) 

XITAB(N) 

XJ 

XK 

XKP 

XH(N) 

XOT 

XOTT 

X3 

X8P(N,K) 


XT 
XTQ 
XTT 
V(I j 

V(J) 

YAP 

YC 

YDI 

YOTO 

YOOD 

YDS 

YINT 


OPPINED BY E0(57) EVALUATED Fo« PbG( 1,I), Nsl TO (I, XGfS) 
IS THE INTEGRAL Of ( F ( 2, 1) «G( I , I) *OET A ) GIVEN BY E0(J8).‘ 

(t IA/12B) 

TpAnSFORMED STREAmWISE coordinate defined by EQ.ISPi 

(nTA,10A,llA) 

Integrand in calculation of xi in refcon, temporary storage 
area in other routines, 

(oTA) 

Input values of normalized axial coordinate 

(oPB.UB) 

locally defined variable 
locally defined variable 
locally defined variable 

defined by Eocao) evaluated for p«F( 2,I), Nsl TO a, XM(5) 
is the integral of (F(2, 1)*F(2, I)*DETA) given by EQ(«n 

(nSB,llA,12B,13B) 

locallv oefinco variable 
locally defined variable 
LoCaLLV defined variable 

defined by EQ(«2) evaluated for Pb 3P(1,I,K) Nsl TO 0, 
XSP(5»K) is The integral of (F(2»I)*SP(l,I,K)»0ETAj GIVEN 
By E0(«3i 
(UA«t2a,i38i 

locally defined variable 
locally defined variable 
LOCALLY defined variable 

ACTUAL distance FROH BODY MEASURED NORMAL Tq SURFACE. 

(iiA) 

natural log of partial pressure (»0 For present condensed 
SPECIES), lOCHTlcn TO YYr(J)* 

(20a,21A,22A,23A,24A,2SA,26A) 

Constant in mixing length equation, 

(flT8,l9Aj 

Initial value of yij) 
locally defined variable 
LOCALLY defined VARIABLE 
locally defined variable 
locally defined VARIABLE 
AlOG(VINT) 


c MISCOM 
C TEmcOM 

L 

L maTSI 
L MATSI 
L MATS! 

C COECON 

L SLOPQ 
L SLOPO 
L “ATSl 
C COECON 

L ABMAX 
L SLOPD 
L SLOPD 
C OUTCOM 

C EQPCOM 

C EPSCOM 

L INPUT 
L TRMBL 
L TRHBL 
L TRMBL 
L TRMBL 
L INPUT 
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YITAB(n) 

vs 

VWfK) 

z 

ZG(N,I j 

ZIGEPS(N) 

ZK(K) 

ZKP(K) 

ZM(N,I) 

Z8P(N,I,K) 


Input VA^.UE3 OF normalized radius 

LnCALLY DEFINED VARIABLE 

value of YYYCJ) at wall (SAVED) 

(nSC,20A,25A) 

static temperature in deg k, identical to t*. 

(nRB,llB,20A) 

defined by Eo(aa). evaluated fo« p=G(i,n, n=i to a 

(lOA, 12B) 

NOT USED IN BLIMPJ 

QUANTITY FOR ELEMENT K WHICH I 3 INTRODUCED AS A RESULT OF 

The approximation for binary diffusion coefficients and 
Reduces to sp(i.i.k) for equal diffusion coefficients, see 
En(uSi 
(n8A,2SA) 

Derivative of zk with respect to eta, 

(OBA) 

defined by EQ(« 6 ), evaluated For P = F(2,I), NSITO I) 

(1 OA, 12B, ISB) 

defined by EQ(A7), evaluated For PaSP(i,I,K) Nsl TO U 
(iOA,l2B,138) 


L 

L SLOP'S 
C EOPCOM 

C EQPCOM 

C HISCOM 

C EQTCOM 
C PRPCriM 

C PRPCOM 
C HISCOM 
C HISCOM 
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SECTION 5 


INPUT 

A comprehensive set of input instructions comprises the bulk of this section. 
Within these instructions are discussions of some of the options and helpful sugges- 
tions for selection of input. The primary selection of all program options is made 
in Group 1 through the choice of the KR's. A complete description of the input vari- 
ables is given in the group-by-group description of the Formatted input in Section 
5.2. This section also contains recommended values for many of the input parameters. 
The units for input and output can be selected as either English Engineering or S.I. 
(The internal working units of the program are English Engineering except for the 
chemistry subroutines which use CGS units.) An expanded discussion of code usage 
and selection of the appropriate options is presented in Section 6. 

5.1 CONSECUTIVE CASES 

The use of a comma in Group 17 for consecutive cases permits a reduction in 
input for certain situations. The KR(1), KR(2), and KR{12) flags can be used to 
eliminate portions of the input data as shown below. 

KR(1) = 0,2 Eliminate Group 4 

KR(2) = 2 Eliminate Group 9 

KR(12) = 1 Eliminate Group 10 or Groups 11, 12, and 13 

By far, the most useful of these is the KR(12) = 1 option which can be used for a 
sequence of problems in which the input chemistry data does not change. Another 
useful application is for generating a first guess by first getting a solution to a 
similar, but simpler, problem whose last solution station corresponds to the first 
solution station of the actual problem. In this case all three KR flags would be 
useful. An example of this could be for starting a fully turbulent boundary layer 
with a large upstream length for which the built-in first guess did not yield a 
successful solution. The simplier problem could consist of several upstream stations, 
constant pressure, constant wall temperature, similar solutions and the same chemis- 
try deck. The last solution of this relatively simple problem would then provide a 
first guess for the more difficult problem. 
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5.2 


DESCRIPTION OF INPUT 


INPUT AMD UUToUT UNITS FOR 3LIMP CAN Qg EITHER SI OP ENGUISH ENGINEERING 
CSEE KRC13)) THE INPUT INSTRUCTIONS ARE WRITTEN FOR Si UNITS. EQUIVALENT 

ENGLISH Units for input are given below, note that the thermochehical curve 
FIT data and the temperature ranges in groups 10 AND 13 APE INPUT ONLV IN 
si UNITS. 


31 MULTIPLY BY/TO GET ENGLISH 


energy J/KG 

energy flux J/3-H2 

length M 

MASS FLUX KG/3-M2 

PRESSURE N/M2 

temperature K 


a.3021E-0A 

8.eil«E-05 

3.2S0S4 

0.200816 

9.S6R23E-06 

1.8 


STU/LBL 

3TU/S-FT2 

FT 

L9M/S-FT2 

ATM. 

R 


3LIMP-J HILL ACCEPT INPUT IN EITHER FORMATTED OR naMELIST FORM. ThE NAME- 
LIST INPUT IS ACTIVATED BY THE KRCl) AND KH(b) SPECIFICATIONS ON CARO 1 OF 
GROUP 1. THERE ARE THREE NAMELIST WHICH CAN 8E USED. THEY ARE SHOWN BELOW 
with The groups of data that they replacei 


SMISLIS - 2, 3/ u, 5, 7, &, 9, 

SINPUT - PART OF 3, PART OF 5, AND PART QF 15. 


SSTALIS - 15, 16. 

THE SPECIFIC variables And ANY DEFAULT VALUES aP£ SHOWN In THE NAMELIST DE- 
SCRIPTION WHICH FOLLOWS. THE VARIABLES THEMSELVES AND THE PLACEMENT OF THE 

namelists are described in the detailed rvpuT INSTRUCTIONS for formatted input 


the deck setup fop complete namelist input is AS follcwsi 

GROUP 1 (KP(ns3) 

SMISLIS 

SINPUT (IF VR(b)a 3,6, OR 71 

GROUP 6 (IF KRC9) OR ANY OF THE KR9CL) .GT. 2) 

GROUP 9 (IF KRC2) .mF. 0) 

GROUP 10 (IF KR<7)= 1 OP 3) 
group 11,12,13 (IF KH(7)B 0 OR 2) 

SSTALIS 


♦** namelist SMISLIS *** 

WHEN SMISLIS IS USED GROUPS 2 , 3 , R , 5 , 7 , 8, AND 9 ARE NOT USED, DESCRIPT- 
IONS OF THE variables IN SMISLIS CAN BE FOUND IN THESE GROUPS, BUILT IN 
default values of THE VaRIASLES IN' GROUPS R AND 0 ARE SHOWN FOLLOWING 
THE variables LIST FOR SHISLIS, 
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variables input with SMISLIS 


N3P>KS > GROUP 2 
NS>KRR,S • group 3 

NETA,ETA,KAPPA,CBAR,K0NRFT,NP0INT,RATLIH,KTURB,KAPPAT,NETAT,F2F.IX, 
F2FIXT - group 


RTMjROKAP - GROUP 5 

PTET(1 ),PTET(2).6E<n,RA0FLn) - GROUP 7 
ELCON, YAP,CLNUm,3CT»PRT,RETR - GROUP 8 

GW - GROUP 9 (only FOR KR(2)aO, THIS GROUP NOT PART OF SMISLIS FOR 
KR(2) >£. 0) 

default values For group « (all other variables are set to zero,) 

CBAR = 0.95 
RATLIM a 0,5 
NPOINT a 3 


For (KR(7)»0,1) NETAb?, KAPPAa6 


NODE 

ETa 

F2FIX 

1 

0,0 

0,0 

2 

0.5 

0.2 

3 

1.0 

0,9 

a 

1.5 

0.6 

5 

2.0 

0.8 

6 

3.0 

0,95 

7 

5.0 

1.0 


FOR (KRC7)a2,3) NETAalZ, KAPPAatO 


node 

ETA 

F2FIX 

1 

0,0 

0.0 

2 

0,002 

0,05 

3 

0,006 

0.12 

a 

0,01 

0,25 

5 

0,025 

0,35 

6 

0,06 

0,45 

7 

0,15 

0,6 

8 

0.9 

0,75 

9 

0.7 

0,85 

10 

1.0 

0,95 

1 1 

1.5 

0,98 

12 

2.5 

1.0 


IF IT IS DESIRED TO USE KTURBal THE ETA, F2FIY, AND F2F1XT MUST BE READ 

IN, the ABOVE Distribution can be used as input wuh NETAiaia and 

KAPPATatO, 


default 

ELCON 

Yap 3 
Clnum 


values for group 8 

a O.iiU 
11.823 
a 0,018 
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SCT = n.g 
PRT 3 0,9 
RETR s 0,0 


**« namelist SinpUT *** 

when SINPUT is Used croup 3, card set 2, fields 2,3, ETC,; GROUP 5. CARD 
set 2; AND GROUP tS, CARD SET 3 ARE NOT USED, 

namelist/input/ INCLUDES THE FOLLOWING VARIABLES 

N . number of TNPUT values for PITAB.ETC, MaXsSOO, 

nth - identifies the throat values in the list of N input values of 

PITAS, ETC. 

NPm.Irl.Ng - identifies THE NS SOLUTION STATIONS FROM THE N INPUT 

STATIONS, ENTER IN ASCENDING ORDER, A NEGATIVE ENTRY 
has The same effect as a negative entry for S(h DIS- 
CUSSED IN CARD SET 2. FIELD 2* GROUP 3, 

IP . FLAG FOR treatment OF EDGE PRESSURE 

0 pressure gradients calculated from ISENTROPiC EXPANSION 
VELOCITIES. DPDS = -DUDS * U£ • RHOE 

\ PRESSURE Gradients calculated by averaging the straight line 
SLOPES Tn adjacent points of PITaB(I),Is!,N 

2 PRESSURE gradient (OPOX) INPUT IN SINPUT 

lu - Flag For treatment of edge velocitt 

0 velocity Calculated by isentropic expansion from stagnation 
conditions., velocity gradient calculated by curve fit of the 
velocities at the ns solution stations if ipso , IF IPs i,a 
velocity gradients calculated from duos s -dpos/ue/rhoe . 

1 velocity input in SINPUT a3 UEKJ), Js1,N. gradients calculated 
BY AVERAGING THE STRAIGHT LINE SLOPES TO ADJACENT POINTS. 

2 VELOCITY AND VELOCITY GRADIENT (DUOX) INPUT In SInPUT, 

DPOX, nUDX « derivative with respect TO XITaB OF PITAB AND UEI. 
MaXsSOO. 

UEI ' EDGE velocity, MAXsSOO, 

XITAB, YITAH - BODY CONTOUR COOROINATeS NORmaLUEO BY RTM, (F'OP A 

CIRCULAR CROSS SECTION NOZZLE YITAB IS ThE RADIUS/RTM 
and RTmsTHROAT RADIUS,) 

PITAB • pressure at Each station normalized by the stagnation pressure 
(SEE ALSO group T, CARD I, FIELDS 1 ANO 2,) 
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**• namelist SSTALIS *** 


when SSTALIS is used groups 15 and 16 are not used, descriptions me the 
VARIABLES IN SSTaLIS CAN BE FOUND IN THESE GROUPS. ALL VARIABLES NOT 
INPUT ARE SET TO ZEROt- NOTE THAT PRE MAT ALSO BE INPUT IN NAMELIST 
SINPUT (SINPUT IS preferred WHEN USING TDK OUTPUT.) 

0SIP(L)»PRE(L).'RADR(L)»Lp1»nS - GROUP 15 

HW(L»n.TW(L.n.RHovw(L,n,spw(K,L«n»FLUxj(N,L,n,K*i,NSP-i,Nsi,3, 
Lsl.NS . GROUP 16 

*** NOTE *** SUBSCRIPTED VARIABLESl LEFT MOST INDEX VARIES FASTEST. 


* * 

***** DESCRIPTION OF formatted INPUT ***** 
* • 


CARD GROUP IDENTIFICATjON 


All CAROS WITH the exception of THE namelist INPUT (GROUP 3) AND THE 
Thermochemical data input (group i3) use columns 73-80 for identification 
(This is optional) 

5 DIGIT number In columns 73-77 

FIRST TWO DIGITS (71»7A) • CROUP NijMBER 
third digit (75) - CARD OR CARD SET NUMBER 

LAST TWO DIGITS (76,77) - CARO NUMBER FOr CARDS WITHIN A CARD SET 
COLUMN 80 - ALPHABETIC CHARACTER USED FOR CASE IDENTIFICATION 

EX. 1) THIRD CARO OF CARO SET 2 IN CROUP R, CASE A 
0R203 A 

2) CARD 1 Of group 12 (NOT A CARO SET), CASE 8 
12100 B 


GROUP 1 CONTROL CARO, TITLE, AND IDENTIFICATION (CALLED FROM RECftSE) 

CARD 1,FORMAT(20I 1 , iSaO) ,KR 

field 1 (COLUMNS 1-20) THIS IS THE VARIABLE KR ( D I MENS ICNED 20) which IS 

USED TO CONTROL ThE VARIOUS PROGRAM OPTIONS 

COLUMN 1 determines WHETHER A NEW SET OF ET* VALUES IS TO BE INPUT FOR 
PRESENT CASE (SEE GROUP «) 

0 USES resident values from previous CASE 
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I VALUES INPUT RY USER (MANDATORY FOR FIRST CASE OR FOR RESTART) 


2 

3 


same 

as 

0 EXCEPT 

namelist 

SMISLIS 

AND 

sstalis 

USED 

same 

as 

1 EXCEPT 

namelist 

tMISLIS 

AND 

SSTALIS 

USED 


COLUMN a DESIGNATES TYPE OF FIRST GUESSES To BE UTILIZED FOR PRIMARY 
variables (SEE GROUP 9) 

0 USES built-in relations TO calculate first guesses (REQUIRES 
reaping only guess for enthalpy of the CaS at the WALL), 

RECOMMENDED FOR MOST SITUATIONS, 

1 FIRST GUESSES INPUT BY USER 

2 USES resident VaLUES from PREVIOUS CASE {CANNOT BE USED FOR FIRST 
CASE OR WHEN composition OF EDGE GaS CHANGES) 

3 first guesses Input by user are accepted as solution at first or 
RESTART station. 


COLUMN 3 determines 
0 PERFORMS similar 


treatment of streamwise derivatives, 
solution at each streamwise STATION 


1 


considers two-pqint difference relations at all stations 
following exception (A similar solution is performed at 

STATION) 


WITH THE 
THE FIRST 


2 CON8I0FRS Three point difference relations aT all stations WITH THE 
following Exceptions (a similar solution is performed at thf first 
station and a two-point solution is performed aT The second station 

AND A TWo-PnlNT SOLUTION IS PERFORMED FOR THE FIRST STATION AFTER A 
discontinuity or a refit STATION. SEE CArD SET U OF GROUP 3) 

3, a, 5 SAME AS 0,1,2 EXCEPT A LINEAR CURVE FiT (3LDPL) IS USED INSTEAD 
OF A quadratic CURVE FIT (3LOPQ) FOR EDGE CONDITIONS, 


COLUMN « DETERMINES WHEN OUTPUT BLOCK IS To BE PRINTED 


0 OUTPUT BLOCK PRINTED FOR CONVERGED SOLUTION OR FOR NONCONVERGED 
SOI.IITION AFTER 50 ITERATIONS (WITH APPROPRIATE COMMENT) 

1 OUTPUT BLOCK PRINTED AFTER EACH ITERATION 
COLUMN 5 determines TREATMENT OF ENTROPY LAytR 


0 FOR MOST ROCKET NOZZLE PROBLEMS 

5 NON ISENTRUPIC EXPANSION, CHANGES IN EDGE ENTROPY INPUT IN GROUP 
15, (USE also KR(10)x 2) THIS IS A SPECIAL OPTION THAT Can PE 
USED WHEN IT IS DESIRED TO DETERMINE THE EDGE STATE FROM LOCAL 
PRESSURE ANf> ENTROPY RATHER THAN ISENTROPIC EXPANSION OR LOCAL 
PRESSURE and VELOCITY AS IN KR(5)b 0. 


COLUMN 6 designates BODY SHAPE 
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3 PLANAR Sharp - eoov contour and pressure distribution input in 
namelist form (can be used for boundary layer predictions along the 
WALL OF A Rectangular cross section nozzle). 

0 AXISYMMETRIC NOZZLE 

6 AXJSYmETrIC NOZZLE - NOZZlE SHAPE AND PRESSURE DISTRIBUTION IN 
namelist form (ex, TDK OUTPUT) (USED WITH GROUP 3. CARO SET 3) 

7 same as 6 WITH transverse CURVATURE CONSIDERED. 

6 AXISYMETRIC nozzle with transverse curvature CNOT recommended) 

*** NOTE *»* transverse CURVATURE SHOULD BE CONSIDERED ONLY WHEN 

THE BOUNDARY LAYER THICKNESS IS NOT MUCH LESS THAN THE 
NOZZLE RADIUS. 

COLUMN 7 designates WHETHER OR NOT TURBULENT FLOW WILL BE CONSIDERED. 

0 laminar flow only 

1 laminar flow only. nonreacting gas, use group 10 INPUT. 

2 turbulent F| OW will be computed if transition criteria is exceeded 
(SEE GROUP fl). 

3 SAME AS 2, nonreacting GAS, USE GROUP lO INPUT, 

COLUMN a designates WHETHER OR NOT BODY SHApE CORRECTED EOR 
displacement thickness will be output 


NO corrected body contour 


I corrected body contour and punch OE R-CORRECTION, this gives 
INVISID FLOW contour for THE GIVEN BODY CONTOUR. 


2 CORRECTED BODY CONTOUR AND PUNCH OF R+COrREC T ION , THIS GIVES NEW 
BODY CONTOUR IF PRESENT CONTOUR IS TH£ DESIRED INVISID CONTOUR. 


3 corrected SnOY CONTOUR(R+-OELTA STAR) NO PUNCH 

WWW NOTE WWW THPfJAT AXIAL COORDINATE IS ZERO, 

COLUMN q TOGETHER WITH COLUMN 11, THIS SPECIFIES THE TYPE OF wall 
boundary CONDITIONS. (SEE SECTION 6) 

0 NOT USED. 

1 USED FOR KR(T)s 1 OR 3, ASSIGNED TOTAL MASS FLUX AT THE WAl.L, 

2 ASSIGNED COMPONENT MASS FLUXES AT THE WAuL (MOOT EDGE GAS, MOOT 
PYROLYSIS GaS, MDOT char-- REQUIRES KR(li) s 0, 1, OR 2). NOT 
recommended for KR(7)a I OR 3 

3 ASSIGNED wall temperature AND ENERGY BALANCE WJTHGUT SURFACE EOUIL. 
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u 


WALL steady state energy balance while SiTiSFYING WALL MASS 
balances and limited surface equilibrium (USE KR(in = 0, 

KR(T) a 0 OR 2.) 

7 ADIABATIC Wall (USE KR(inaO) 

COLUMN 10 determines type of curve fits employed Tfi REPRESENT The 
. primary variables of velocity ratio# total enthalpy, and 
elemental mass fractions (KR(lO)ai IS STRONGLY 
recommended for accuracy for most problems.) 

0 utilizes connected cubics 

1 utilizes connected quadratics except for outermost segment where 
connected CUfllCS ARE EMPLOYED 

2 utilizes connected quadratics everywhere. 

COLUMN 11 together WITH COLUMN 9, THIS DESIGNATES THE TYPE OF WALL 
boundary condition SEE GROUP J6. 

0 ASSIGNED wall temperature. ALSO USED WITH KR(9)ea. THIS OPTION 
together WITH KR(9)x2 WILL YIELD SURFACE EQUILIBRIUM 

IF THE assigned TEMPERATURE IS GREATER Than THE 

assigned ASlATION temperature (sec group 11. CARO 1. field 7), 

THE PROGRAM WILL CALCULATE THE APPROPRIATE CHAR FLUX, ASSIGNED 

CHAP FLUX Should be set to zero (See croup is# card set in. 

1 ASSIGNED wall enthalpy. 

2 surface equilibrium WITH assigned component MASS fluxes (Re- 
quires KR(9) «2), THE problem IS WELL»pOSEO AND WILL CONVERGE 
ONLY IF THERE EXISTS A TEMPERATURE ABOVE 250K GIVING SURFACE 
equilibrium For the assigned component mass fluxes, use with 
CAUTION for analyses OF MATERIALS WITH PlaTEAU»L1KE BEHAVIOR, 

••• USED FDR ASSIGNED BLOWING RATE 


COLUMN 12 DETERMINES WHETHER 09 NOT NEw DATA FOR THERMODYNAMIC AND 
transport properties are to be used and whether OR NOT 

surface kinetic Data are to be considered (see croups ji, 

12#13» AND la), APPLIES ONLY FDR KR(7)sO DR 2, (KR(12) MUST 
BE 0 OR 2 FOR FIRST CASE), 

0 USER INPUTS NEW DATA FOR ELEMENTS AND MOLECULAR, ATOMIC, AND IONIC 
SPECIES, ThERMOCHEMICAL OATa NOT PRINTED IN OUTPUT, 

1 USES resident elemental and species data, 

2 SAME AS KR(l2)aO EXCEPT THERMOCHEMICAL OaTA ARE PRINTED IN OUTPUT. 
COLUMN IS 

0 SI UNITS I/O 
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1 ENGLISH units I/O 

2 same as 0 EXCEPT plot VARIABLES WRITTEN TO UNIT 18 (KPLT) 

3 same AS 1 Except plot variables written to unit is (kplt) 

COLUMN la determines model to be EMPLOVED for multicomponent transport 
properties. CONSIDERING UNEQUAL DIFFUSION COEFFICIENTS CAN 
substantially increase the number of ITERATIONS (AND SOME- 
TIMES convergence does not OCCUR In ThE allowed number of 
ITERATIONS! DUE TO THE USE OF INEXaCT DERIVATIVES IN THE 

newton-raphson iteration procedure. 

0 CONSIDERS UNEQUAL DIFFUSION AND THERMAL DIFFUSION COEFFICIENTS FOR 
ALL SPECIES 

1 considers unequal diffusion coefficients for all species but 
neglects thermal diffusion 

2 CONSIDERS Equal diffusion coefficients And neglects thermal 
diffusion, «*MUST be used for binary diffusion OPTION.** 

column 15 non-zero entry provides debug output for first guesses and 

linear matrices (SEE DEBUG INSTRUCTIONS FOR MORE DETAILED 
information on columns 15 THROUGH 20) 

0 NO DEBUG 

1 FIRST GUESSES ARE DUMPED 

2 LINEAR matrices BEFORE AND AFTER INVERSION ARE ALSO DUMPED 

COLUMN 16 NON-ZFRO ENTRY PROVIDES DEBUG OUTPUT FOR WALL FLUXES AND 
SURFACE EDUILI8RIUM ITERATION, 


0 NO DEBUG 

X FOR X greater Than zero, the derivatives of wall energy and mass 

FLUXES with respect TO REDUCED NONLINEAR VARIABLES (DOJRNL), AND 

the associated errors (WaLLOJ and OELOJW) are dumped. ALSO, the 
matrix of wall relations before And after matrix inversion IS 
dumped for kR(ll)a2 PROBLEMS, 

Y FOR Y greater than unity, SURFACE EQUILIBRIUM ITERATION INFORMATION 
IS ALSO DUMPED (AS IN KR(18)) AND IF KR(i7) IS GREATER THAN ZERO, 

the derivatives of wall energy and MASS fluxes with respect to all 
nonlinear variables (DOJNL) are also dumped. 


COLUMN 17 NON-ZFRO entry PROVIDES DEBUG OUTPUT FOR COEFFICIENTS IN NON- 
LINEAR equations and for STREaMWISe derivatives 

0 NO DEBUG 

X FOR X greater ThAN ZERO, STREAMWISE DERIVATIVE INFORMATION tS 
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DUMPED 


V FOR {r*i-iTsi greater than 2ero» Where its is the number of the 
CURRENT boundary LAYER ITERATION, THE COEl^F IC lENTS WHICH COMBINE TO 
make up the nonlinear EQUATIONS (COEEOV ARRAY) AND CERTAIN LINEAR 
AND NONLINEAR ERROR INFORMATION ARE DUMPED AND THE DERIVATIVES OF 
THE NONLINEAR EQUATIONS WITH RESPECT TO THE NONLINEAR VARIABLES 
(AM ARRAY) are DUMPED BEFORE AND AFTER INVERSION, 


COLUMN Ifl NON-ZfRO entry PROVIDES DEBUG OUTPUT FOR CHEMISTRY ITERATION 
(KR(7) ■ 0 OR 2 ONLY),' 

0 NO debus 

1 DUMPS chemistry ITERATIONS IN DETAIL FOR ITS GREATER THAN «5 WHERE 

ITS IS The counter on chemistry iterations 

2 DUMPS one Line per iteration during each chemistry iteration 

Y FOR Y of 3 through 6, DUMPS CHEMISTRY ITERATIONS IN DETAIL WHEN 
{5a(Y-2)-IT3) is greater THAN ZERO, 

X FOR X OF 7 THROUGH 9, DUMPS CHEMISTRY ITERATIONS IN DETAIL WHEN ITS 
18 greater than lOX-50, 


COLUMN 19 NON-ZeRO entry PROVIDES DEBUG OUTPUT FOR LINEAR AND NONLINEAR 
ERRORS 

0 NO debug 

J DUMPS (FOR EACH ITERATION) ThE FOLLOWING, ERRORS FOR NONLINEAR 

momentum (fnle)» energy (gnle)» and species (spnle) equations. 
CORRECTIONS FOR REDUCED NONLINEAR WALL VARIABLES (DRNLsF, G, 8P (K ) ) , 
nonlinear V^^RIABLE array (DVNL«ALPHA»F(1 j,FPPn),(FP(I),Ial,'NETA), 
6P(t), (G(I).I«1,NETA), (SPP(tiK), (SPP(I iK).I»1,NETA),K»1,NSP.I), 

linear momentum variables (FLE), energy variable (CLE), and species 
variables (sple), 

COLUMN ao non-zeRo entry provides debug output for Thermodynamic and 
transport properties (KR(7) 8 0 or 2 ONLY), 

0 NO DEBUG 

X for X greater than ZEROi gives thermodynamic and transport property 
information For each chemistry solution 

2 gives matrix of property derivatives before and after inversion 

field 2 fcOLUMNS al-72)/ CASE 

TITLE OF CASE (ALPHANUMERIC), U3ED FOR IDENTIFICATION OF PRINTED OUTPUT. 
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GROUP 2 NUMBFR OF ELEMENTS (CALLED FROM RECASE) 


Card set 1 NAMELIST/MISLIS/ ***USEO ONLY FOR KR(n,G£,2*«« 

WHEN SMJSLIS IS USED GROUPS 2 » 3, 4, 5, 7, 8 , AND 4 ARE NOT USED, 

Card 2, FQRMAK ia,6x.4oin 

FIELD 1 (COLUMNS i«2, R IGHT- JUST 1 F lEO ) , NsP 

number of elements in the SYSTEM NOT including electrons (MAX, OF 7) 

AAFOfl binary diffusion NSP IS entered AS 2,** 

*AFOR NHNREACTINg gas OPTIONS, NSP=l,»* 


fields 2-51 (COLUMNS (IJ- 5 O), KS(M), Ms), NS *»**« USED ONLY FOR KRfRj 
OR ANY OF THE KR4 s 2, 3, OR 4 ***** 

( This information is used only for ablating wall material.) 

THE surface material IS SPECIFIED IN ADVANCE BY THE USER FOR KR(Q) s 2, 
3 OR 4, UP TO Three material combinations are allowed. EACH 

COMBINATION MAY HAVE A SEPARATE RYROlYSIS GAS ASiD CHAR MATERIAL 
SPECIFtF.n IN group U, field 5. enter a 1 , 2 , UR 3 TO DENOTE MATERIAL 
combination 1, 2, OR 3 STARTING WITH THE STATION 1 ENTRY IN COLUMN n, 
station 2 IN column 12, ETC, SEE ALSO GROUP 6 , CARDS 1 AND 2, 


GROUP 3 STATION INFORMATION (CALLED From RECASE) 


Card i, forhat(12,bx,40ii) 

field 1 (COLUMNS 1-2, RIGHT-JUSTIFIED), NS 

number of STREAMwISE stations (maximum OF 40) 
fields 2- M (columns U-BO), KRR 

VALUES TO be ASSIGNED To KR(9) WHEN WALL BOUNDARY CONDITIONS ARE Tfi BE 
CHANGED at DOWNSTREAM STATIONS (SEE CARD I OF GROUP 1). COLUMN n 
corresponds TO STATION S(D, COLUMN 12 TO STATION S(2), AND SO ON. 

IF wall BOUNDARY CONDITIONS ARE NOT TO BE CHANCED AT DOWNSTREAM 
STATIONS, THIS field SHOULD BE LEFT BLANK, WhEN ThE KH9C I ARE 
employed, KR(9) should be given the VALUE necessary TO READ ALL APPROP- 
RIATE Wall DATA (GROUP 16 ), 

AT THE present TiME, IT IS POSSIBLE TO CONSIDER any COMBINATIONS OF 
KR9 OF 2, 3, and 4 COMPRISING REGIONS OF AN ABLaTHJN MATERIAL and 
REGIONS WHERE THFRE IS NO ABLATION (THESE NONaBLATInG REGIONS ARE OB- 
TAINED BY USE OF KR9( i = 2 WHILE ASSIGNING ZERO COMPONENT MASS FLUXFS, 
SEE CARD SET 11 OF CROUP 16) 
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CARO SET 2. FORMAT(7eIO,«) 

PIELO I (CO^UMN8 1-10) 3(1) 

S(l) IS normalized 8T RTM, SEE GROUP 5f CARO 1, 

PIELO 2 (COLUMNS j(l-20), FIELD J (COLUMNS 21-30), ETC. 7 FIELDS PER CARD. 
S(L)> LoZ.NS ***USE0 ONLY FOR KR(6)s(i OR S*«* 

STRfAMWISE distance UPON WHICH BOUNDARY-LAYER SOLUTION IS BASED, 

S(L) IS ENTERED IN NORMALIZED FORM - THE NORMALIZING FACTOR BEING 
RTM INPUT IN group 5, CARO 1, 8(1) MUST NOT BE 0. THE 

value of 8(1) should BE SELECTED TO REPRESENT THF PHYSICAL DISTANCE FROM 
THE start of the HOUNDaRY-LA YER DEVELOPMENT To THE FIRST SOLUTION 
station, the boundary layer is ASSUMED TO BE SIMILAR UP TO AND INCLUD- 
ING this first station, a negative ENTRY FDR S( L) SIGNIFIES A DISCON- 
TINUITY AT that station, this PRODUCES A Twq.PqinT DIFFERENCE SOLUTION 
AT THE FIRST station AFTER THE DISCONTINUITY aNO THUS HAS AN EFFECT ONLY 
FOR three-point solutions (KR(3)«2), (ALSO SEE CARD SET 3) 

*** note *** SIMILAR MEANS THAT NO DERIVATIVES ARE CONSIDERED IN THE 
transformed STREAMMISE coordinate DIRECTION. 

Card set 3 namelist (SINPUT) **t*i»USEO only for KR(6)«3,6,7t»*«* 

when SINPUT IS USED group 5, CARD SET 2, FIELDS 2,5, ETC.l GROUP 5, CARD 
SET 2» And croup is, CARO SET 3 ARE NOT USED, 


GROUP 4 NODAL OaTa (CaLLEQ FROM RECASE) ** SKIP ThiS GROUP FOR KR(1)bO OR, 2** 


Card 1, format(12) ••*** used only if kr(i)«i 

field 1 (columns 1-2, RIGHT-JUSTIFIED), NETA 

NUHBER of nodal POINTS ACROSS THE BOUNDARY LAYER INCLUDING WALL AND 
BOUNDARV LAVER EnOE (MAXIMUM OF 15), 


Card bet 2, FORMAT(7ElO,a) ***** USED ONLY IF KR(1)bi ***** 

FIELD 1 (columns 1-10), FIELD 2 (COLUMNS H-20), ETC,, 7 TO A CARD, 
ETA(I), IbUNETA (SEE CARO I OF THIS GROUP) 

eta stations across THE BOUNDARY LAVER, STARTING AT WALL (ETAbO.O), IT 
IS RECOMMENDED THAT THE VALUE OF ETA AT THE BoUNOARV-LAYER EDGE BE GIVEN 

A Value of about 5.0 so that the stretching parameter will be near 

UNITY, ALSO, there SHOULD NOT BE MUcH MORE ThAN A TWO-FOLD CHANGE 

IN distance between two neighboring nodes, best accuracy for a GIVEN 
number of nodes is. obtained if the nodes are closer together neap 
the wall.' for LaMINaR problems, 7 NODES ARE OFTEN SUFFICIENT with 
A typical spacing being 0.0, 0,5, 1,0, 1.5, 2.0, 3.0, 5,0 ANO WITH 
KAPPA s S, CBaR b 0.8 (SEE CARO 3, FIELDS 1 AnO 2 OF THIS GROUP).' FOR 
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TURBULENT BOUNDARV LATERS, MORE NODES ARE NEEDED CLOSE TO THE WALL DUE 
TO THE STEEP GRADIENTS THERE, A TVPKAl SPACING WOULD BE 0,0, O.'OOR, 
0,006, O.Ol, 0,0?S. 0,06, 0,15, 0,4, 0,7, 1,0, 1,5, 2,5, 

WITH KAPPA 3 lO AND CBAR s 0,R5, WHATEVER THE NODE SPACING THE 
USER MUST examine THE SOLUTIONS TO BE SURE THaT A REASONABLE CURVEEIT 
IS obtained near the wall, this CAN BE A PROBLEM FOR LARGE STREAHWISE 
distances in turbulent flows. **• NOTE *** USE OF REFIT OPTION MAKES THE 
INITIAL SELECTION OF NODAL POINTS NON-CRl T IC Ai. , 


Card 3 format (I2,E10.4,2I2,F10.4,3I2) *****USED only if KRCnsl****. 
field I (COLUMNS 1-2, RIGHT-JUSTIFIED), KAPPA 

the variable KaPPA is associated with the constraint which is utilized 

TO EFFECT A stretching oF ETA, THE BOUnDARY-LA YER COORDINATE NORMAL TO 
THE surface, in oRDER TO EFFECTIVELV USE THE ASSIGNED NODAl. SPACING (SEE 
CAROS I AND 2 OF ThIS GROUP). KAPPA IS THE InOEY FoR ThE NODAL POINT 
AT WHICH the velocity RATIO IS FIXED, TO ILLUSTRATE, IF KAPPA IS 5, 
then THE fifth nodal POINT COUNTING FROM THE WALL AND INCLUDING THE WALL 
WILL have a value of CBAR (A QUANTITY WHICH Is INPUT IN THE SECOND FIELD 
OF THIS CARO), 

field 2 (columns 3-12), CBAR 

CBAR IS the value of THE VELOCITY RATIO AT THE BOUNDaRy-LAYER NODE 
designated kappa (SEE DISCUSSION UNDER FIELD 1 OF THIS CARD), 

field 3 (COLUMNS 13-14, RIGHT-JUSTIFIED) KONRFT 

THE variable KONRFT DETERMINES IF THE NODAL REFIT OPTION IS TO BE USED. 
FOR HONRFTsO, THE DEFAULT VALUE, REFIT IS NOT CALLED, IF THE REFIT OP- 
TION IS DESIRED, SET KONRFT s i, THE REMAINING FIELDS ON CARD 5 ARE NOT 
REQUIRED IF KONRFT so, 

field 4 (COLUMNS lS-16, R IGHT- JUST IF lED ) NPOINT 

NPOINT IS THE number OF EXTRA DATA POINTS TO BE USED TO DEFINE EACH 
polynomial segment during refit, should be set between 1 and b« THE 
HIGHER the number, the greater THE DEFINITION OF THE CURVE PRIOR TO 
refitting, generally from 3 TO 5 APPEARS REASONABLE. IF NO VALUE OR 0 
IS INPUT A default value OF 5 IS USED, IE A VALUE GREATER THAN 6 IS 
selected, it is overriden and replaced by 6, 

FIELD 5 (COLUMNS 17-26) RATLIM 

IN conjunction WITH THE VALUES OF F2FIX (SEE CARP 4 BELOW) RATLiM DETER- 
MINES HOW FAR AWaY from the DESIRED VALUE THE VALUE OF F(2,I) IS ALLOWE- 
0 TO DRIFT 0EFORF REFIT IS CALLED, RATLIM IS EXPRESSED AS A RATIO OF THE 
difference between the DESIRED VALUES OF NEIGHBORING NODES, FOR EXAMPLE 
IF F2FIX(2)=0, 1 , F2FIX(S)30,2 AND RATLIMbO.5, F(2,2) May DRIFT UPWARD 
OR F(2,3) downward TQ 0.15 BEFORE REFIT IS CALLED, RATLIM MUST Be SEL- 
ECTED BETWEEN 0,0 AND l.O, OBVIOUSLY THE SMALLER The VALUE, THE TIGHTER 
THE CONSTRAINT ON NODAL POSITIONING, A VALUE OF 0,0 WILL CAUSE REFIT TO 
BE CALLED after EVERY CONVERGED SOLUTION. 

FIELD 6 (COLUMNS 27-28 R IGhT- JUSTIFIED ) KTUR8 
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THE SWITCH KTURB DETERMINES IF THE NUMBER OF NODES ARE TO BE CHANCED 
UPON TRANSITION TO A TURBULENT BOUNDARY LAYER SOLUTION , FOR KTURBaO 
(DEFAULT VALUE) NO CHANGE IS MADE. FOR KTURB oi A SECOND SET OF KAPPA, 
CBAR, and F2FIX VALUES ARE REOUIREO AND ARE NaME0» KAPPAT, NETAT, AND 

F2FIXT Which function IDENTICALLT TO their original counterparts. 

CURRENTLY THIS OPTION IS LIMITED TO OCCURING SIMULTANEOUSLY WITH THE 

transition to turbulent flow, the remaining Fields on card 3 are not 
required if kturb«o, 

field 7 (COLUMNS 2R-30 RIGHT-JUSTIFIED) KAPPAT 

KAPPAT has the Same meaning as kappa in field 1 of this card and is used 
IF A change in The number of nodes is to be Made (kturbsI). 

field 6 (COLUMNS 3t-32 RIGHT-JUSTIFIED) NETAT 

NETAT is the new number of nodes across the layer for KTURBbI, 

Card set « FORMAT (SElO.a) *****USED only if KDNRFTs1***»* 
fieloi (COLUMNS i-io). Field 2 (columns 11-20 ), etc, s to a card, 

F2FIX(I), I»1,NeTA (SEE CARO 1 OF THIS CROUP), 

F2FIX(1) IS The desired DISTRIBUTION OP THE VELOCITY RATIO ACROSS THE 
BOUNDARY layer WhEn THE REFIT OPTION IS EMPLOYED, THE VALUES OF F2FTX 
MUST CO FROM 0,0 TO 1,0 AND THE VALUE OF F2FIx(KAPPA) MUST EQUAL CBAR. 

CARD SET 5 FORMAT (flElO.R) *«*»aUSEO ONLY IF KONrFTsI AND KTURBbI***** 

FIELD 1 (COLUMNS I-IO) FIELD 2 (COLUMNS 11-20), ETC,, 8 TO A CARD, 
F2FIX(D# Ib1,NeTAT (See card 3 OF this CROUP), 

F2FIXT(I) IS equivalent IN MEANING TO F2FIX(I) OF CARD 0 EXCEPT THAT IT 

applies to the Change in the number of nodes, F2fix(kappat) must equal 

CBAR. 


CROUP 5 BODY SHAPE DATA (CALLED FROM RECASE) 


card 1 .format (CIO.'R) 

FIELD I (COLUMNS l-loi RTM 

RTM (METERS) IS USED AS A NORMALIZING FACTOR FOR ALL LENGTH VARIABLES -- 
S, ROKAP, YITA8, (RTM IS THE THROAT RADIUS FoR NOZZLES.) 


Card set 2, formaT(teio,«) ***** used only for kr(r) e « or e ***** 

FIELD 1 (COLUMNS »-l0), FIELD 2 (COLUMNS 11-20), ETC., 7 TO A CARD. 
ROKAP( L).' L»l, NS (SEE CARD 3 OF GROUP 3) 
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THIS IS THE LOCAl. BOOT RADIUS NORMAL TO THE BODY CENTERLINE NORMALIZED 
BY RTM. 


GROUP 6 Material property data needed for hall quasi-steady energy balance 

(CALLED FROM RECASE) ****«C0NSIDER THIS GROUP ONLY IF KR(9) OR ANY OF 

THE KR9 IS EQUAL TO 3 OR GREATER***** 


Card t. fdrmatcres.s) ** used only if kr(r) or any of the kro is 3 or a ** 

fields liU.T (columns 1-8, 25-32, 49-56), EM I V ( j ) , i s i , 3 

surface EMITTANCE of the material combinations BEING CONSIDERED UNDER 
KR(9) OR KR9 OF 3 OR « , 

FIELDS 2,5,8 (COLUMNS 9-16, 33-40, 57-64), HC ARfl ( I ) , I a i , 3 

HEAT OF formation (J/KG) OF THE VIRGIN STATE OF THE ABLATION MATERIALS 
BEING CONSIDERED UNDER KR(9) OR KR9. OF 3 OR 4. (CHAR) 


FIELDS 3,6,9 (COLUMNS 17-24, 41-48, 65-72), HPVG ( I ) , 1= 1 , 3 

HEAT OF formation (J/KG) OF THE TRANSPiRANTS BEING CONSIDERED UNDER 
KR(9) OR KR9 OF 3 OR 4, (PYROLTSIS GAS) 


Card 2, format(6A4) ** used only with card i ** 

fields J,2, and 3 (COLUMNS 1-8, 9-16, 17-24), ASU ( I ) , BSU ( I ) , 1*1,3 

NAMES OF surface SPECIES FOR MATERIAL COMBINATIONS 1,2, AND 5 EXACTLY AS 
THEY APPEAR IN THE THERMODYNAMIC DATA TABLES (GROUP 13, CARD SETS 2,3, 
4,,.., CARD 1, FIELDS 1-8), LEFT JUSTIFIED, 


Card 3, FORMAT(0ElO,4l ••* USED ONLY FOR KR(9) OR KR9(L) a 7 »** 
ADIABATIC wall OR TRASPIRATION COOLED ADIaBATIC WALL 


FIELD 1 (columns 1-10) SURFACE EMISSIVITY (MAY BE ZERO) 

FIELD 2 (columns H-20) ENTHALPY OF INITIAL STATE OF TRANSPIRaHT (BTU/ 
I.BM), IF transpiration COOLED. 


*** NOTE **• INJECTION RATE OF THE TRaNSPIRANT IS READ IN AS 

pyrolysis GaS blowing Rate, (FOR HOMOGENEOUS GAS 
READ IN TRANSPIRATION FLUX AS RHOVW.) 

The elemental composition of the transpirant is 
READ In as elemental COMPOSITION OF PYROLYSIS GAS 
FOR ONE OF the MATERIAL COMPOSITIONS IN GROUP 11. 


5-15 


CROUP 7 8TACNATION DATA (CALLED FROM RECASE) 


Card i .format (7ejo,«) 
field I (COLUMNS 1-10) PTET(l) 

LOCAL stagnation PRESSURE (N/M**2) 

FIELD 2 (COLUMNS li-20) PTET(2) 

normalizing FACTnR FOR THE EDGE PRESSURE READ IN UNDER NAMELIST FORM IF 
THOSE pressures aRE NOT NORHALIXED TO THE STAGNATION PRESSURE, 

EX, PITAS entered in PSIA, ENTER PTET(2) AS THE STAGNATION PRESSURE IN 
PSIA. 


Card z .format (TEio.ai 
field l (COLUMNS i-lO) GE(1) 

stagnation ENTHALPV of the edge gas (J/KC) 


Card 3 .FORMAT (7E10,«) 

field 1 (COLUMNS 1-10) RADFl(I) 

INCIDENT radiation FLUX ABSORBED SV THE SURFACE AT STATION S(l), 
J/SEC-M**2. (IF A surface ABSORPTIVITY LESS THAN UNITY IS TO BE fON- 
SIDERED. THIS ENTRY SHOULD BE CORRECTED FOR SURFACE ABSORPTIVITY), THIS 
INFORMATION IS USED ONLY FOR KR(9) OR KR9 OF 3 OR tt, 

INPUT blanks in THIS field FOR OTHER TYPES OF PROBLEMS, RADIATION FLUX 
AT OTHER STATIONS WILL BE INPUT AS RATIOS IN G«OUP 15, 

GROUP 8 TURBULENT FLOW PARAMETERS (CALLED FROM TREMBL) **** CONSIDER THIS 
group only if KR(7) « 2 OR 3 


Card i. formauseio.sV 

fields 1-8. (COLUMNS l-io. 11-20. 21-30. 31-00. 01-50, 51-60) ELCDn, YAP. 
CLNUM, SCT. PRT. RETR 

ELCON IS THE PRANOTL MIXING LENGTH CONSTANT AND IS USED TO IDENTIFY THE 

turbulent model, 

YAP IS A CONSTANT OF PROPORTIONALITY IN THE MIXING LENGTH EXPRESSION 

CLNUM IS THE CLAUSER CONSTANT OF PROPORTIONALITV IN OUTER WAKE REGION 
FOR THE KENDALL aND CEBECI MODELS, IT IS A CONSTANT IN THE BUSHnELL 
MODEL. 
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TYPICAL INPUT FOR THF THREE TURBULENT MODELS IS GIVEN BELOW. 




ELCON 

YAP 

CLnUM 



KENDALL 

.aa 

11.823 

.016 



BUSHNELL 


0 

.OR 



CEfltCr 


-It. 8 

.0166 


SCT 

TS the turbulent 

SCHMIDT 

number, (0,9 

IS A typical 

VALUE) 

PRT 

13 THE TURBUiENT 

PRANDTL 

NUMBER. (0,9 

IS A typical 

VALUE) 


A negative entry activates the CEBECl MODEL FOR TURBULENT PPANflTI. CAL- 
CULATION OF PRT, THIS ENTRY IS THEN A CONSTANT IN THE CESECI EXPRESS- 
ION For turbulfnt praijDTl number (typical value -o.aai 

RETR is the transition REYNOLDS NUMBER BASED ON MOMENTUM THICKNESS. IF 

retr is exceeded, turbulence Terms will be included in the governing 

equations. if RpTR IS NEGATIVE FULL TURBULENCE HILL OCCUR AT STATION 
IS = IFIX (-HETRi 


GROUP 9 FIRST GUESS OP RESTART INFORMATION (CALLED FROM FIRSTG) »*** SKIP 
THIS GROUP for KR(2]z2, CONSIDER ONLY CARO 6 FOR K»(2)=0 «*** 


CARD 1 .format (5E10;a.5X. I5.E10.U) **** USED ONLY IF KR(2)sl OR 3 **** 
EIElO I fCPLUMN 1-10) AlPH 

FIRST guess UR restart VALUE FOR BOUNDARY LAYpR NORMALIZING PARAMETER 
(USE A ).0 IF A better guess IS NOT KNOWN), 

field 2 (COLUMNS tl-20) F(l,l) 

FIRST GUESS UR RESTART VALUE FOR STREAM FUNCTION AT THE WALL, 

field 3 (columns 21-30) F(3,l) 

FIRST GiifSS UR RpSTART VALUE FOR NORMALIZED VELOCITY GRADIENT AT THE 
WALL. 

field a (COLUMN 3s-a0, right JUSTIFIED) 1ST 

STATION number For restart. MEANINGFUL ONLY FDR KR(2)s3, 

Card set 2, F 0 RMAT( 7 F:i 0 .a) **** USED only for KR(2)s1 or 3 ***» 

FIELD 1 (columns 1-10), FIELD 2 (COLUMNS 11-20), ETC,, 7 TO A Card, 
F(2,I), Irl.NETA. 

FIRST guesses oh RESTART VALUES FOR VELOCITY RATIO U/Ul ACROSS THE 
BOUNDARY LAYER, 
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Card set j, roRMATCTEio.a) **** used only for kh(2)=j oh j **•* 

FIELD I (COLUMNS 1-10), field 2 (COLUMNS ll-2o), ETC., 7 TO A CARD, 
r.(2,n, Gfi.n, i = i,neta 

FIRST guesses OR RESTART VALUES FOR ENTHALPY CRADIEnT AT THE WALL r,(2,)) 
AND enthalpy G(l,n ACROSS THE BOUNDARY LAYER, J/KG, 


Card set «, FORMaT(7E10.«) »»** used only for KR(2)=J or 3 and NSP greater 
Than t **»* 

field I (COLUMNS 1-10), FIELD 2 (COLUMNS ll-2o), ETC., 7 TO a Card, 
(SP(2,1.K), SP(I,I,K), Isl.NETA) K31, nSF-1 

first guesses or restart values for elemental mass fraction gradient 

AT THE wall SP(2.l,K) AND ELEMENTAL MASS FRACTION VALUES SP(1,I,K) 

across The boundary later, read in wall gradient and Values at nodes 
FOR EACH Element before going on to next element, start each element 
ON A NEW CARD. 


Card set 5, FORMAT(t6r2) **•* used only for KR(2)si or j and is GRtATFC 
than I **** 

field 1 (.columns 1-2, right JUSTIFIED). FIELD 2 (COLUMNS 5-a, RIGHT 

JIISTIFIEOi , ETC,, (LEF(K), K=1. IS) (SeE LARQ 1 OF GROur i). ) ■ 

ENTRTES IN these fields must INOIVTOUALLY correspond to the elements AS 
they are entered in group It, CARO set 2 according to whether, for the 

FIRST (OR restart) STATION, ThE ELEMENT iSj 

0 NOT present 

1 present due to local Injection 

2 present due to upstream Injection (not possible at first station) 

3 present erom the edge gas 


Caro 6, EORMATCEIO.U) .*»*• USED ONLY Ei.iR KR(2)so »*•** 
field t (COLUMNS (-10), GW 

FIRST guess for fNTHaLPY OF THE GAS AT THE WALL, J /« 0 , IF NC) INFORMATION 

IS available use The Value of the stagnation enthalpy (group 7. card 21 


GROUP IQ property DATA FQR NONREACTInG BqUNUAry LAVfR (ER(7)=1 OR 3) (CALLED 
FROM STATln) **»• SKIP THIS GROUP FOR KR(7)s 0 OR 2 OR KR(l2)s 1 ***» 


Caro i, format(5eio * u) ***** used only if kr(7)=i or 5 ***** 
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field 1 (cnLUMNS i-ioj. prdum 


PRANOTL number, if caNSIOERED CONSTANT, OTHERWISE. IT IS A CONSTANT IN 
THE RELATION 

pR o PRDUm»pra*T**PRB*PRC*T*«pRO 

UNITS for T set flV KU. CARO 3, FIELD «, PRA, PRB, PRC, AMO PRO ARE 
INPUT IN FIELDS 2, 3, R ANO 5 OF THIS CARD. 

fields 2, 3. li AND S, (COLUMNS 11«20. 21*30, 31. <10. AnO <11.50). PRa 

PRB, PRC, ANO PRO, RESPECTIVELY 

COEFFICIENTS IN pRANDTL NUMBER RELATION DEFINED UNDER FIELD I OF THIS 
CARO 

Card 2, FORMaT(«E 10 ,«) ***** used only if KR(7) s l or 3 ***** 

EIELO 1 fCOLUMNS 1.10), VMUA 

COEFFICIENT In VISCOSITV RELATI0N(N.S/M2 IF Ku= 0| LBM/S-FT IF Ku= O 
mU = CVmUA*T**VMUB)/(VMUC*T*VmUD) 

units for T set by KU, CARD 3, FIELD 4, VMUb, VMijC, VMUO ARE INPUT IN 
FIELDS 2, 3, ANO U OF THIS CARO, 

FIELDS 2, 3, AND a,‘ (COLUMNS 11-20, 21-30, AND 31-«0), VMUB.VMUC, AND 

VMUD, respectively 

COEFFICIENTS IN VISCOSITY RELATION DEFINED UNoER FIELD I UF THIS CARD 

CARO 3, FORMaT(I3,2X,3I1,2X,3F10,3) *****USE0 ONLv IF KR(7) s 1 OR 3***** 
EIELO 1 (COLUMNS 1-3, RIGHT-JUSTIFIED), NC 
NUMBER OF components OF THE GAS MIXTURE 
FIELD 2 (COLUMN 6) IFRAC 

1 composition entered in CARO SET a AS RELATIVE MEMBER OF MOLFS, 

2 composition entered In CARO SET tt AS RELATIVE MASS, 

FIELD 3 (COLUMN 7) ITEMP 

0 TWO temperature ranges of thermodynamic CURVE FIT CONSTANTS ENTERED 
IN CARD SET 5. 

1 three temperature RANGES OF THERMODYNAMIq CURVE FIT CONSTANTS 
ENTERED IN CARO SET 5, »*REQUIRES 6 CARD DATA SET IN CARO SET S,** 

field <l (COLUMN 8) KU 
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0 PRANOTL number AND V13C03ITV EXPRE33ION3 ENTERED IN DEG K, 

1 PRANOTt number and VISC03ITV EXPRESSIONS ENTERED IN DEG R. 

FIELDS 5-7 (COLUMNS 11-20, 21-30, 31-40) TJ(I), I« 1,3, 

the Tjdi Serve as limits for the temperature ranges of the thermo- 
dynamic CURVE FIT constants, (MUST BE DEGREES KELVIN) 

OPTinNAL LOW RANGE - BETWEEN 50 DEG, K AND TJ(1), 

MID RANGE - BETWEEN TJ(l) AND TJ(2), 

UPPER RANGE - between TJ(2) aND TJ(3), 


Card set «, format(<.eio,3) 

fields 1, 3, 5, (Columns i-io, 2i-30, 4i-50) tk(I,i), le i,nc, 

AMOUNT OF COMPONENT I IN THE MIXTURE (SEE IFRAC ON CARD 3) 

fields 2, n, 6, (Columns 11 - 20 , 3t-ao, S 1 - 6 O) vhwe(I), is i,nc, 

MOLECULAR Weight of component i, 

«•* NOTE *** TK(I,n, VMWE(l) ARE ENTERED AS PAIRS, 3 PAIRS TO A 

CARD, They **must** be in the Same order as the 
component thermodynamic data cards in. card SET 5. 

card set 5 


CURVE FIT Constants for enthalpy, specific heat, and Entropy, see 

FORMAT IN GROUP 13, CARD SETS 2,3,,, FOR ITEMP s 1 THE LOw TEMP. 
ERATURE constants aRE USED, 

NOTE *•* NO blank CARO AT END OF GRqUP 10, 


GROUP 11 elemental data (CALLED FROM INPUT) 

*•** SKIP this GROUP FOR KR{12)» 1 OR FOR KR(7)s i OR 3 


Card 1, FORMAT(I5,F7,0,5F10,«) ***• used ONLY for KR(12)sO or 2 ***» 

Field i (columns 1 - 3 , right-justified), is 

number of elements in The system including electrons if considered (this 
entry will be the same as card 1 OF GROUP 2 (EXCEPT FOR THE DIFFERENT 
FORMAT) FOR systems NOT CONTAINING ELECTRONS flUT WILL BE ONE GREATER FOR 
SYSTEMS CONTAINING ELECTRONS) 

FIELDS 2 And 3 (COLUMNS 4-10,11-20) FFAR, FITMOL 
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CONSTANTS IN THE CURVEFIT OF FF(J) IN TERHS OF MOLECULAR WEIGHT,. 
FF(J)»(WTM(J)/FITM0L)«*FFAR 

FFAR AND FITMOL aRE PRESUMED TO BE O.aSR AND 2h,7 IF NO ENTRY IS MADE. 

fields and b (COLUMNS ai»30, 31-aO, ill-SO) BASM.Ol., sigma, EPnVHK 

THESE are presumed TO BE 32.0 , l.Hbl , AMO ln6,7 RLSPF CTl '/T lT IF no 
ENTRT IS made. 

**• note for FIELDS 2-6 *** 

these Variables define the reference spet.ies ppnptRTus for ffcj) - 

(AERoTHFrM final PFPORT no, 69-53/ JUl.Y )969). HASHpL IS THE HOLFCUI.AR 
weight of THE PFFERENCE SPECIES, SIGMA AND Epmyrk ARE THE SPFCIES 
sigma and EPSILON/K a3 defined by SVEHLA ('ESTIMATED VISCOSITIES AND 
thermal conductivities of gases at high TEMPERATURES', NASA TR-r- 132, 
I96fl), STANDARD VALUES DESCRIBED IN AEROTHERm REPORT 69-53 ARE USED 
IF NO E'JTRIES ARF made. 

field 7 (columns Sl-60) TF(N+U •*** USED ONLY FUR KR(9) e 2 WITH 
KR( 1 1 ) a n •*** 

ABLATION temperature (DEG K)/ ABOVE WHICH EOUlIHRIUm CHAR REMOVAL RATE 
HILL BE determined. BELOW THIS TEMPERATURE, SURFACE EQILIBRIUM is 
suppressed, automatically set to 50/000 K IF MO ENTRY, AN ABLATION TFMP- 
ERATURE must BE ENTERED IF SURFACE CHEMISTRY iS TO BE CONSIDERED.' 


CARO set 2 

CAROS 1 / 2 / 3 ,.,, IS (One FOR E*CH ELEMENT, SEE CARD 1, FIELD 1 GF THIS GROUP), 
format (1X/a2/3a«,8F7.3) *•** USED ONLY FUR KR ( 1 2 ) sO , 2 , 5/ OR 7 *** 

field I (COLUMNS 2-3 »**LEFT JUSTIFIED***) KAT(K) 

atomic symbol of eiemEnt (e for Electron), with electron last (whfm 

CONSIDERED), 

field 2/ (COLUMNS 0-15) ATA(K), ATB(K), ATC(K) 

NAME OF element fUSEO FOR OUTPUT ONLY), FOR BEST LOOKING OUTPUT, El EM- 
ENTS with 3 UR 0 letters (EG,/ IRON) SHOULD START IN COLUMN 6 , ELEMENTS 
with 5, 6 / OR 7 letters (EG,/ CARBON) SHOULD START IN COLUMN 5 , and 
ELEMENTS WITH 8 OR MORE LETTERS (EC,/ NITROGEN) SHOULD START IN cOL, 0. 

FIELD 3 (COLUMNS 16-22), WAT(K) 

ATOMIC weight of element 

FIELD 0 (COLUMNS 23-29) TK(K,l) 

AMOUNT OF element IN BUUNOAR Y-LA VE« EDGE GAS, SEE BELOW FOR UNITS, 

FIELDS 5 TO 10 (COlUMNS 30-36, 37-93, <14-50/ 51-57, 58-64, 65-71) TK(K,J) 
Jb2',7 
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amount of element in PYROLY3I3 CA3 AND CHAR FOR EACH OF THE THREE ALLOW. 
ABLE materials, fields 5 AND 6 ARE FOR MATERIAL 1, FIELDS 7 ANO 8 FOR 

material 2, etc; negative values are used to designate relative MASSES 
OF elements* whereas positive values are used to designate relative 
numbers of atoms;, as an example of the latter, the entries for a silica 
char could be t. for The element silicon and 2 , for oxygen. 


group 12 diffusion factor data (Called from input) 

*A*A SKIP THIS GROUP for KR(7)b 1 OR 3 OR KR(ia)= 1 OR IF IT TS 

desired to use the MOLECULAR WEIGHT APPROXIMATION FOR DIFFUSION 
factors (See fields 2 and 3 of card \ of group m. 


Card 1, FORMATdsi used only for KR(12)bo or 2,' and then only if 

IT IS desired to read In diffusion factor data for 
ONE OR MORE species ***»* 

FIELD i (COLUMNS 1-5, RIGHT-JUSTIFIED) NFF 

number of mOLECUI.es for which diffusion factor Data are to be read 
(SEE fields 2 and 3 OF CARO 1 OF GROUP ll>. 


Caro set 2 

Cards t,2,3,.'.., as required (diffusion factor dat* requested by card j of 
THIS GROUP are entered here 3 TO A CARD) FORMAT (3(2Aa,El2,«) ) 
***«« USED ONLY FOR KR(t2)s>0 OR 2, AND ThEN ONLY IF THE CON- 
DITIONS OF CARO I OF THIS GROUP ARE MET **«a* 

fields 1, 3, AND 5 (COLUMNS t-S, 21-26, AND 41.(iS RESPECTIVELY) 

NFIA(il) AND NFIB(4) IN EACH FIELD 

NAME OF molecule AS IT APPEARS IN COLUMNS 1-8 ON FIRST CARO OF 4-CARD 
THERMODYNAMIC DATA SET FOR THE MOLECULE (SEE CROUP 13, CARO SETS 2,3, 
4,,.;, CARD 1) 


fields 2, 4, and 6 (COLUMNS 9-20, 29-40, AND 49-60 RESPECTIVELY) 

FFIN(U) IN EACH FIELD 

A SET OF FF(J) And C(J) ARE INCLUDED IN THE PROCRAH, IF ANY OF THESE 
ARE TO BE changed, THE NEW VALUES FOR EACH OF THE SPECIES NAMED IN 
FIELDS 1,3, 5, etc; ARg ENTERED HERE UNDER THE VARIABLE NAME FFIN(J). 
negative ENTRIES OF FFIN REFER TO C(J), THEY ARE THEN SORTED BY SPECIES 
name and ENTERED INTO The PROPER SLOTS IN THE FF(J) OR G(J) ARRAYS. 

THESE DIFFUSION FACTORS ARE REFERENCED TO OXYGEN (02) OR OTHER REFERENCE 
SPECIES indicated in GROUP U, TO OBTAIN ACCURATE VISCOSITY CALCULA- 
TIONS USE 

G(J)=(SIgMA(J)*WTH(J)*»,25*EP0VRK(J) a*, 0795)/(SIGMA(REF)*WTM(BEF) 
**.25*EPOVRK(REFj«A,0795) 
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GROUP IJ THERMHCHEMICAL data (CALLED FROM INPUT) 

***** Skip this group Fqr KR(7)a 1 OR 5 OR KB(12)s 1 ***** 


THERE ARE FOUR CARDS FOR EACH MOlECUL*R» ATOMIC, CONDENSED, OR IONIC 
SPECIES. A total of TO SPECIES OF ALL TYRgS ARE ALLOWED, THE NUMBER 

OF allowable condensed-phase materials which can be simultaneously 

PRESENT IN any solution IS 4. AMY NUMBER OF CONDENSED PHASE SPECIES 
CAN Bp included in The TheRMOCHEHICAL data deck, (note... condensed 
SPECIES ARE Required in surface equilibrium calculations for consid- 
eration AS candidate SURFACE MATERIALS BUT ARE NOT PRESENTLY CONSID- 
ERED AS candidate SPECIES WITHIN THE BOUNDARY LAYER), A BLANK CARO 
AFTER THE LAST SET CONCLUDES THE THERHOOYNaMI C DATA, THE ARRANGEMENT 
OF these CARO SETS IS OF CONSEQUENCE IN 30 Far AS IT DETERMINES The 
BASE SPECIES UPON WHICH MASS BALANCES ARE PERFORMED, THE FIRST INDE- 
PENDENT SET Of base SPECIES BEING SELECTED. SINGULAR MATRICES CAN RE- 
SULT from CERTAIN SETS OF THEORETICALLY ACCEPTABLE BASE SPECIES DUE 
TO ROUNO-OFE errors, FURTHERMORE# MASS BALANCES, £TC, FOR THE (NSP)TH 
BASE SPECIES ISEE CARD I OF GROUP 2) IS OBTAINED BY DIFFERENCE. 
THEREFORF, the element represented by this base species SHOULD BE 
PRESENT IN appreciable QUANTITIES THROUGHOUT THE BOUNDARY LAYER.' 

FOR example* for ablation IN AIR, MOLECULAR NITROGEN IS A GOOD CHOICE 
FOR The (NSP)TH base SPECIES, 

A multiple phase SPECIE SHOULD BE ENTERED TOGETHER IN ORDER OF AS- 
CENDING temperature ranges. The gas phase and two phases of any 
COMBINATION Of solid ANQ LIQUID ARE ALLOWED. 

EXCEPT FOR these CONSIDERATIONS, ATOMIC, MOLECULAR, AND CONDENSED 
SPECIES can be arranged in any order, when ionized FLOWS ARE CON- 
SIDERED, The atomic, molecular and condensed species data must 
APPEAR FIRST and be followed BY, FIRST, ELECTRON SPECIES DATA, AND 
THEN THE IONIC SPECIES OaTa (WHICH CAN BE IN any ORDER), THE DATA 
format accepted by the program (described below) IS AS GENERATFD by 
'FORTRAN IV Program for calculation of thermodynamic data' described 

IN NASA TN 0-U097, AUGUST 1967, 

***** note ***** These cards are not sequentially identified in 
columns 7J-80 with the system USED ELSEWHERE, 


Card 1 .FORMAT (15,3F10.3,IS) 
field I (COLUMN l-<?) NOT used 

field 2,3,4 (Columns 6-lS, 16-25,26-35) Tj(I),Irl,3 

temperature Ranges for the temperature coefficients, (must be deg k) 
OPTIONAL LOW range - BETWEEN 50 DEC AND TJ(l). 

MID RANGE - between TJ(1) AnD TJ(2), 
upper range • between TJ(2) and TJ(3), 

field 5 (COLUMNS 36-40) ITEMP 
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0 Twn ranges nP thermodynamic property data. 

1 three ranges of Thermodynamic property data. 

Card sets >*»,., one for each molecule 

card 1 .FORMAT (3A4;6X.2A3.a(A2«F3,0).A1.2Fl0.S.iax.in 

field t (COLUMNS 1-12), ISN(I), mi, 3 

SPECIES name ex. - H2o, used FOR iNPUT/OUTPuT AND AS IDENTIFIER FOR 

GROUP 6 AND GROUP 12 INPuT. 

field 2 (COLUMNS m-2R)» I3n{i), m«,S 

DATE OF THE DATA USED FOR THE CURVE FIT, 

fields 3>U.5,6,.,. (COLUMNS 25-26, 27-2R# 30-3 1 i 32»3« , 35-36 , 37-39, 40-a J , 

42-49) JAT(I),ALPT(I), mi, 4 

JAT(I) - ATOMIC symbol OF THE ELEMENTS IN THE MOLECULE (LEFT JUSTIFIED) 

alpt(I) - number OF atoms of jaT(I) in the molecule 

EIElD U (COLUMN 45), JP 

PHASE OF. the molecule (S,L,G) 

WHEN A SPECIES HAS SEVERAL PHASES THERE IS ONE 4-CARO SET FOR EACH 

PHASE. The SETs are ordered WITH The low temperature phases first. 
(SEE DISCUSSION aT ThE BEGINNING OF ThiS GROUP.) 

fields 12,13 (COLUMNS 46-55,56-65) SPL*3PU 

SPL - LOWER TeMPfRaTURE LIMIT FOR THIS MOLECULE IN THIS PHaSE (DEG K) 
SPU - UPPER temperature LIMIT FOR THIS MOLECUlE IN THIS PHASE (DEG K) 

note *** FOR SOlIO phase, SPU IS THE FAIl TEMP, FOR THIS SPECIES 

AS A surface. 

THIS INFORMATION applies ONLY TO THE RANGE OF VALIDITY OF THE CURVE FIT 
data given on CAROS 2-4 AND DOES NOT APPLY TO CAROS 5 AND 6 WHEN USED, 

field 14 (COLUMN 60 ) ICt 

ENTER A 1 

card 2 .FORMAT (5E15.6,I5) 

fields 1-5 (COLUMNS; 1-15, 16-30,31-45,46-60,61-75) 

COEFFICIENTS A(I), Ial,5 FOR CP,H,3 (SEE BELOW) 
field 6 (COLUMN 80) 

enter a 2 
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Card 3 .format (sEis.e.i^)) 

fields 1"5 (COLUMNS 1-15, 16-30, 3l-«5»«6-60, 61-75) 

COEFFICIENTS A(Ii,l»6,7 B(n,lEl,3 FOR CP,H,s (SEE BELOW) 
field 6 (COLUMN 80) 

ENTER A3 

Card a format (5Ei5,s,T5) 

fields 1-R (COLUMNS 1-15, 16-30, 31-«5, 46-60) 

coefficients B(I),I=4,7 FOR CP.H.S (SEE BELOW) 
field s not used 
field 6 (COLUMN 80) 

ENTER A « 

*** CARDS 5 AND 6 USED ONLY FOR ITEHPs l AND ONLY FOR GAS PHASE SPECTES. 
NOT USED FOR SOLID OR LIQUID PHASE EVEN WHEN iTEMPs 1, *♦» 

CARD 5, FORMAT(5El5,fl,I5) 

FIELDS 1-5 (COLUMNS t-l5, 16-30, 31-45, 46-60) 

coefficients C(I), Is 1-5 FOR CP, H, 3 (SEE BELOW) 

field 6 (column 80) 

ENTER A 5 

Card 6, fqrmakseis.b, is) 
fields 1-2 (COLUMNS 1-15, 16-30) 

C(6), C(7) 
fields 3-5 NOT used 
field 6 (COLUMN 80i 
ENTER A 6 

THE A(I) APPLY To THE UPPER TEMPERATURE RANGE, THE B(l) APPLY TO THE 
MIDDLE temperature RANGE, AND THE C(D APPLY TO THE OPTIONAL LOW TEMP- 
ERATURE RANGE IN THE EDUATIONS- 
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H/(R*T)»An )*A<2)*T/2+A(3)*T**2/3#A(«)*T**3/«+A(5)*T**4/5+A(6)/T 
3/RaA(i )*AL0G(T)+A(2)*T+A(3)*T**2/2*A(«)*T»*3/3tA(5)*T»*«/«+A(7 j 
WHERE T IS IN DEGREES K. 

AS mentioned before the LAST CARO IN GROUP 13 IS A BLANK CARD (IDENTI- 
FIED AS 13LAST In columns 73-78), 


GROUP la ***** NOT USED FOR THIS VERSION 


THIS GROUP RESERVED FOR INPUT OF SURFACE OR GAS PhAse KINETIC DATA, 

GROUP 15 STREAMWI3E DISTRIBUTIONS FOR EDGE CONDITIONS (CALLED FROM REFCON) 


CA«D set 1 NAMELIST/STALIS/ ***U8EO ONLV FOR KRn).GE,2*** 
when S8TA1.I3 IS USED CROUPS 15 AND 16 ARE NOT USED, 

Caro set 2 , FORMAT( 7 El 0 .a) **** USED ONLV FOR KR(5)a S **** 

FIELD 1 (COLUMNS I-IO), FIELD 2 (COLUMNS 11-20), ETC,, 7 TO A CARD 
DSIP(L)» L«l. NS 

DECREASE IN EDGE ENTROPY PROM PREVIOUS STATION TO CURRENT STATION, FOR 
FIRST station this IS A DECREASE FROM STAGNATION ENTROPY, J/KG-K 

Card set 3, FORMAT(7eio.'a) ***** used only for KR(6)=a,e ***** 

FIELD I (COLUMNS t-lO)» FIELD 2 (COLUMNS ll-2o)» ETC., 7 TO A CARD, 
PRE(L), LbI.NS (SEE CARO 3 OF GROUP 3) 

Ratio of local static to stagnation pressure, in addition to defining 
the LOCAL pressure, THIS DATA IS USED TO FORM THE LOCAL VELOCITY GRAD- 
IENT AT OTHER body STATIONS, 

Card set a, FoRMAUTEio.a) 

field 1 (COLUMNS 1-10), FIELD 2 (COLUMNS 11-20)* ETC., 7 TO A CARD. 
RADR(L)* L“1*NS (SEE CARO 3 OF GROUP 3) 

RATIO OF LOCAL To STAGNATION POINT INCIDENT RADIATION, THIS INFORMATION 
IS USED only for KR(9) OR KR9 OF 3 OR 4 INPUT BLANKS INTO THIS FIELD 
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FOR nTHER types OF PROBLEMS, (NOTE • NUMBER OF CARDS IN CARO SET 5 = NC 
MHEre NC IS the smallest INTESGER satisfying 7 >»WC ,GE. ns (CAPO t, 

CROUP 1)) 


GROUP 16 STREAHWISE DISTRIBUTIONS FOR INPUT WALL CONDITIONS 
(CALLED FROM pEFCON) 


Card set 1, FORMAT(7EIO.<I) •* USED ONLY FOR KR(Uj = l AND KR(9)sO,l,2 OR 1 ** 


field 


(COLUMNS 1-10)» FIELD 2 (COLUMNS 11-20). ETC,, 7 TO .'A CARD, 
HW(L.lj, l.Bl.NS (SEE CARD 3 OF GROUP 5 ) 


enthalpt of The GAS at the hall, J/KG, 


Card set 2, FORHAT(7flO,4) 


** USED ONLY FOR KRUlisO AND KR(9)eO,l,2 OR 5 ** 


FIELD 


(columns 1 - 10 ), FIELD 2 (COLUMNS ll-2o), ETC,, 7 TO A CARD, 
TW(L,1), LSI, ns (SEE CARD 3 OF GROUP 3) 


hall temperature, DEG K 


card SET 3, NOT USED IN THIS VERSION, 

CARO set 4, FORMAT(7E10,<I) *»* USED ONLY For KR(9)= 1 AMD KH(l))s 0 OR 1 *** 

FIELD 1 (COLUMNS I-IO), field 2 (COLUMNS 11-20), ETC, 7 TO A CARD, 

RHnVw(L,n L* 1 »NS, 

total mass flux aT The wall (KG/S-M2), 

POSITIVE FOR MASS INJECTION, 

CARO set 5, FORMAT(7e10.4) **• USED ONLY FOR KR(7)= 0 OR 2, KR(R)s 0 OR 1, 
and KRdlis OOR I, 

field 1 (COLUMNS 1-10), field 2 (COLUMNS ll-20),ETC, 7 TO A CARD, 

3PW(K,L,1).‘ Ls 1,NS, DO LOOP FOR Ksl, nSP- 1, NOT USED FOR NSPsl. 

WALL elemental Mass fractions in the same order that they are selected 
from the thermodynamic data (CROUP 13) 

Card set 6, format (7E1 0.4) *»** used only for KR(7)=0 or 2 with KR(9)a2 AND 

KR(tl)=0,l, OR 2, OR with any of The KR9=2 

field I (columns 1-10), FIELD 2 (COLUMNS 11-20), ETC., 7 -TO A Card, 

DO N=l,3 FLUXJ(N,L, 1 ), L“1,N3 (SEE CARD 5 OF GROUP 3) 

wall mass fluxes of boundary-layer edge gas, pyrolysis gas, and CHAR, 
respectively (SEE GROUP II, CARO SET 2, FIELD 4), KG/SEC-M«*2, POS- 
ITIVE for MASS INJECTION, 

head in all edge Gas values, then start PYROLYSIS GAS values on a new 
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CARD AND 

*** note 



READ ALL PVROLVSIS GAS VALUES , ETC , 

IE NO mass ELUXES. the proper mumber of blank cards must be 
entered here. (Number of cardsbs times number of cards in 
card set t OR CARO SET 2# WHICH EVER IS USED.) 


•** transpiration COOLING RATE CAN BE SPECIFIED HERE AS A PYROLYSIS GAS 
FLUX ft** 


GROUP 17 (CALLED FROM BLIHP) 


Card I FQRMAT(Alj 

FIELD I (column 1), JaST 

THE purpose Of This entry is to permit a test on whether or not a new 
CASE IS TO follow. In THE EVENT A CASE DOES NqT CONVERGE In THE ALLOTTED 
number of iterations, any remaining cards for that case are read and 
then ignored until a comma (,) or a period (.) 13 ENCOUNTERED IN 
COLUMN 1. A CQMhA signifies another CASE# while a period 
SIGNIFIES that There are no cases to follow. 
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SECTION 6 


CODE USAGE 

The purpose of this section is to expand on the information presented in the 
input description. Several types of problems are discussed with respect to the pro- 
gram options used to model the problem. In addition, several special program options 
and the interface of BLIMP-J with other JANNAF programs are described. Finally, a 
description of common convergence difficulties is presented. 

6.1 UNITS 

Input and output for the BLIMP-J program can be either SI or English engineer- 
ing units (see discussion in Section 5). The output headings are changed as appropri- 
ate. Table 6-1 gives the conversion factors for the two systems. 


TABLE 6-1. CONVERSION FACTORS 


iL 

Multiply by to Get 

English Engineering 

kg/m^ 

UCD(0. 062427962) 

Ibm/ft’ (density) 

Joules/kg 

UCE(4. 3021-04) 

Btu/lbm 

meters 

UCL{3.28084) 

feet (length) 

kg 

UCM(2. 2046226) 

Ibm (mass) 

N/m^ 

UCP(9. 86923-06) 

atmospheres (pressure) 

Joules/m^ 

UCR('8. 8114-05) 

Btu/ft^ 

N/m* 

UCS(0. 020885434) 

Ibf/ft^ (shear) 

°K 

UCT(1.8) 

°R (temperature) 

N-s/m^ 

UCV(0. 671968995) 

Ibm/sec-ft (viscosity) 

Watts 

9.4845-04 

Btu/sec 

N 

0.224809 

Ibf 


6,2 WALL BOUNDARY CONDITIONS 

Wall boundary conditions for the BLIMP program have been generalized to in- 
clude surface thermochemistry considerations. These wall boundary conditions are 
flagged by various combinations of the KR(9), KR9(L), and KR(ll) flags. The input 
of wall information is controlled by KR(9) and KR(ll). The type of wall boundary 
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condition is controlled by KR(11) and KR9(L). The KR9(L) (Group 3, Card 1, Fields 
2-51) can be assigned a different value at each solution station. If no input is 
made the default value is KR(9). 

lor those options Involving transpiration cooling or surface ablation, the 
following general rules apply: 

• For user specified amount of transpirant or pyrolysis gas use the input 
fields allocated to "Pyrolysis Gas". (Groups 6, 11, or 16) 

• If the program is to compute the amount of transpirant on ablation gas 
used input fields allocated to_"Char". (Groups 6, 11, or 16) 

It is possible to specify up to three different materials as possible surface mate- 
rials at each solution station. The choice of surface materials is governed by 
KS(L) (Group 2, Card 2, Fields 2-51). 

For typical engineering problems, there are several sets of boundary condi- 
tions which are used most often. These are typically combinations of the following 
conditions: 

• Chemical equilibrium between the gaseous boundary layer and the surface 
material 

t Assigned surface temperature 

• Assigned surface mass flux 

• Energy balance between the surface material and the gaseous boundary 
layer assuming steady state ablation. 

Of course, these four conditions cannot be used in all possible combinations and do 
not constitute a complete list. Several combinations which can be used in the BLIMP 
program and the control card punches necessary to flag them are described below. 

6.2.1 Assigned Surface Temperature, Nonreacting Gas 

Use KR(9) = 1, KR(ll) = 0, and KR(7) = 1 or 3. This is a simple problem and 
bypasses all the chemical equilibrium consideraitons. The homogeneous (nonreacting) 
gas option is discussed in Section 6.3. 

6.2.2 Assigned Surface Temperature. Nonreactinq Wall 

Use KR(9) = 2 and KR(ll) = 0. This option is the same as that of Section 
6.2.1 except that gas phase equilibrium chemistry is required. All mass fluxes in 
Group 16 are entered as zero. 
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6.2.3 Assigned Surface Temperature and Mass Flux 


Use KR{9) = 2 and KR(n) = 0. This option can be used to model a design 
problem wherein the desired wall temperature and the amount of transpiration cooling 
are known and the heat flux to the wall is desired. The transpi rants are entered as 
pyrolysis gases. No surface material-surface gas interaction is considered (see 
Group 11, Card 1, Field 7). 

6.2.4 Assigned Temperature and Surface Equilibrium 

Use KR(9) = 2 and KR(ll) =0. The surface equilibrium option is activated 
when the assigned wall temperature exceeds the assigned ablation temperature (Group 
11, Card 1, Field 7). The assigned char flux should be zero. (A pyrolysis gas flux 
may be assigned.) The program will choose the correct surface species from the 
available solid species. The thermochemistry deck must contain at least one solid 
species whose fail temperature (entered as SPU, Group 13) is greater than the as- 
signed wall temperature. 

6.2.5 Steady State Energy Balance and Surface Equilibrium 

Use KR(9) = 4, KR(ll) = 0. KR9(L) is equal to 4 at those stations where 
a special surface chemistry package based on vapor pressures is called. The special 
chemistry package does not allow fail temperatures and the surface material must be 
specified in advance (char. Group 6). Within these limitations, the program will 
calculate the correct mass loss rate of specified surface material necessary to 
satisfy the steady state energy balance equation. There must be at least one solid 
phase species in the species deck (Group 13) and its name must correspond to the 
material name entered in Group 6 as "char”. No entry for wall temperature is made 
in Group 16. 

6.2.6 Assigned Surface Temperature and Wall Heat Flux 

Use KR(9) = 3, KR(ll) = 0. This option could be used to determine how much 
transpiration cooling would be required to maintain a specified wall temperature and 
a specified heat removal rate (by internal cooling). The specified wall heat flux is 
entered as a negative "radiation absorbed by the surface" using RADFL(l) (Group 7) 
and RADR(L) (Group 15). The composition of the transpirant is entered as "char" in 
Groups 6 and 11. No solid phase surface species is required and surface-gas equili- 
brium is not imposed. 

•6.2.7 Adiabatic Wall with Transpiration Cooling 

Use KR(9) = 2, KR(ll) = 0, and KR9(L) = 7, as appropriate. The flux of trans- 
pirant is entered as pyrolysis gas flux in Group 16, and blank cards must be used for 
the wall temperature entered in Group 16. The composition and initial enthalpy of 
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the transpirant are entered in Group 11 and Group 6, respectively. The wall boundary 
condition is set by KR9(L) = 7 and requires zero net energy flux to the wall. For a 
completely adiabatic wall the transpirant fluxes are omitted and KR(9) ® 7 Is used. 

6.3 HOMOGENEOUS GAS OPTION 

The homogeneous, or nonreacting, gas option is activated by KR(7) = 1 or 3. 

In this option the user specifies the species composition of the gas and the gas 
viscosity and Prandtl number as functions of temperature. (The input for this op- 
tion is described in Group 10.) This option is useful for one-species gases or for 
preliminary studies where complete accuracy is sacrificed for reduced computer time. 
An example of the first case is low temperature air flow. For this case the thermo- 
dynamic properties, viscosity, and Prandtl number are well known and can easily be 
curve fit for input to the code. For the second case the main problem is how to 
get the transport properties of a multicomponent mixture. A program such as the 
Aerotherm Chemical Equilibrium program (Reference 7) can be. used to generate values 
of the transport properties for frozen species composition. These can then be curve 
fit as required by the Group 10 input. The gas composition may be frozen at any 
state, for example, the throat composition. Using this method for a complex gas mix- 
ture can result in considerable savings in computer time. 

6.4 BINARY DIFFUSION OPTION 

The binary diffusion option offers another method of reducing computation time 
for those gas systems containing more than two elements. Sample case 3, Section 8.3, 
which has four elements required about 60 percent as much time using the binary dif- 
fusion option as it did with the regular options. The remainder of this section is 
devoted to describing the input manipulations required to activate the binary diffu- 
sion option. 

The most important aspect of the input for the binary model is the construc- 
tion of two artificial species which will be considered as diffusing into each other. 
General guidelines for these two species are given below: 

• The entire elemental composition of the system must be represented by 
the two artificial species 

• For problems with gas injection the injectant and the edge gas make up 
the two artificial species 

• The aritifical species should be considered as solids with large negative 
entropies. This can be accomplished by inputing A(7) and B(7) in Group 
13 as ~ -1000. The other entries for the thermodynamic data can be zero. 


6-4 



SPU can be entered as 100. In this way these species will never appear 
as part of the chemical system and will only serve to keep track of ele- 
mental diffusion. 

• The artificial species should be the first two in the Group 13 input and 
if there is an injectant the species representing the injectant should be 
first and the species representing the edge gas second. 

The only additional input required is that NSP in Group 2 should be input as 2 re- 
gardless of the number of elements in the problem and KR(14) = 2 is used. 

As an example of how to construct the artificial species consider a propellant 
gas of composition* (weight percent): 

H - 4.0 percent 
C — 21.6 percent 
N - 38.7 percent 
0 — 35.7 percent 

Alternately the composition could be approximately represented as 40 atoms of H, 18 
atoms of C, 28 atoms of N, and 22 atoms of 0. This is more convenient for forming 
fictitious species and for input in Group 11. Two fictitious molecules which could 
be used to represent this gas are 

^ 18 '^ 28°22 

As it turns out H 2 is a real species and the appropriate thermodynamic data should 
be used. The C, N, and 0 have been arbitrarily lumped together. 

If this same gas were used in conjunction with an injectant (or ablative wall) 
with composition** given by 25 atoms of H, 71 atoms of C and 7 atoms of 0, appropri- 
ate artificial species might be 

Wall injectant - 

Edge gas ^20^18^28^22 

Sample case 3, Section 8.3, is setup to illustrate this situation. 


★ 

This is roughly the composition of XLDB with the solid AI 2 O 3 removed. 

** - 
This composition is approximately that of carbon phenolic tape (MX4926). 
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6.5 THIRD TEMPERATURE RANGE 


An optional third range for thermodynamic property curve fit constants can be 
used for those problems where the two standard ranges are not sufficient. These ex- 
tra curve fit constants apply to low temperatures and are useful for extending the 
standard JANNAF curve fits to temperature less than 300“K. When the curve fit con- 
stants are determined care should be taken to insure that the specific heat, enthalpy, 
and entropy are continuous at the temperature that separates the lower range from the 
mid-range. 

6.6 SELECTION OF AXIAL SOLUTION STATIONS 

The choice of the location of the first solution station (S(l), Group 3) and 
how far to step in the axial direction between solution stations is cause for some 
concern. Although there is no rigorous procedure for choosing the solution stations, 
there are some general guidelines that should be helpful. 

As a rule of thumb the value of S(l) should be selected to represent the 
physical distance along the wall upstream of the first solution station. (This 
number should not be zero.) Difficulty in getting convergence for the first sta- 
tion may be a result of S(l) being too large. S(l) can be reduced or the procedure 
described in Section 5.2 may be used. The axial step to the next solution station 
should no more than double the value of S. This step size is subject to the number 
of solution stations desired and the considerations discussed in the following para- 
graphs. 

In general there are three features of the flow which influence the choice 
of solution stations. 

• Discontinuities in geometry 

• Discontinuities in wall conditions (ex. start of blowing or step change 
temperature) 

• Pressure distribution. 

All of these features contribute to the streamwise derivative terms (9/9 In C) in 
the conservation equations discussed in Sections 2 and 3. These terms can become 
large and dominate the equations by two mechanisms. The first is the result of 
large changes in the physical quantity and is a natural part of the physics of the 
problem. The second is a result of the numerics and the computer being used in 
that 9 In C is computed from In - In ^ (see Equation (3-36)). If 5^ and -j 
are too close together the differences in the logs may get excessively small or ex- 
ceed the machine limits thereby resulting in large terms 9/9 In C, which inhibit 
convergence. Both must be considered. In regions of rapid physical change small 
steps should be taken so that the solution does not change drastically from station 
to station; however, if the steps are too small numerical problems may arise. 
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Discontinuities in geometry and wall conditions can be treated in the same 
manner. Solution stations should be placed on either side of the discontinuity and 
fairly close together. The change in conditions is considered to be spread over the 
distance between the two stations. If three-point differencing is being used (KR(3) = 
2) both of these stations should be identified as discontinuities. (See Section 5, 
Group 3, Card set 2.) This helps to confine the effects of the discontinuity. 

The selection of the solution stations with respect to the pressure distribu- 
tion influences the solution through the calculation of the streamv/ise derivatives 
of the pressure and the free stream velocity. (Both of these terms appear in the 
momentum equation.) The difficulty arises from the method of calculating these 
gradients. There are three methods of calculating these derivatives in addition to 
directly inputting them. 

The first method is preferred when a large number of pressure and velocity 
points are available as, for example, is the case with TDK output. For IP 0 (see 
Section 5, Namelist $INPUT) the gradients are calculated from linear averaging of 
the straight line slopes to adjacent points. The solution stations should then be 
selected from the set of TDK points such that the linear approximation is valid. 

This can be easily done by examination of a graph of the pressure versus axial 
position. 

The other two methods are used when IP = 0. In this case the gradients are 
calculated from the set of pressure values at only those points used as BLIMP solu- 
tion stations. The gradients can be calculated by either linear or quadratic methods. 

Use of the linear option [KR(3) = 3, 4, -or 5] is less likely to lead to trouble, 
but is also considerably less accurate in highly nonlinear regions. Derivatives at a 
station are computed as the average of the linear slopes to one station forward and to 
one station backward (Figure 6-1). 



Figure 6-1. Linear derivative. 

The quadratic option [KR(3) =0, 1, or 2] is more accurate but can give 
erroneous results, particularly in regions of large curvature. The derivative at a 
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station is the weighted average of the derivative calculated from a three-point 
backward quadratic, a three-point centered quadratic, and a three-point forward 
quadratic (Figure 6-2). The derivative of each quadratic is 



Figure 6-2. Quadratic derivative. 


evaluated at the station in question (0 in Figure 6-2) and the derivative at the 
station calculated from 


D. + 2D + Df 
b c f 

4 


In regions of large curvature the forward or backward quadratic can be in 
error as shown by the example below. 



Figure 6-3. Quadratic derivative with error. 

In this case the large positive derivative from would outweigh the contributions 

from D-: and D and lead to errors, 
f c 
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As a guide to the user, the following suggestions are offered. 

1. Select the distribution of solution stations by referring to a graph of 
P/P^ vs. X/R.J. (or S/R.j^). (This is in addition to discontinuity considera- 
tions.) 

2 . Decrease the interval between points in regions of large |dP/dx| and large 

ld^P/dx*|. 

3. Check the output values of 3^ (the streamwise derivative of edge velocity). 
For rocket nozzles it is expected that du/dx > 0, therefore, it is nega- 
tive values of 3^ where positive values are expected that indicate a poor 
selection of solution stations. Also, 3^ (and 3p) should be smoothly 
varying. 

4. Use the linear option [KR(3) = 3, 4, or 5] and select the solution sta- 
tions so that the average linear slope is a good approximation to the 
slope of the dP/dx curve. 

It should be stressed that accurate evaluation of the pressure gradient is of ut- 
most importance to reliable solutions, and every effort should be made for a proper 
choice of the solution stations. 

6.7 NODAL DISTRIBUTION AND REFIT 

A suggested distribution of nodes for both laminar and turbulent flow is given 
in Section 5, Group 4. These distributions should be adequate for most problems, 
particularly when the REFIT option is used. The key parameters for the nodal dis- 
tribution are CBAR, KAPPA, and the ratio ETA(KAPPA)/ETA(NETA) . The selection of 
KAPPA establishes the node that will be used to stretch the boundary layer profile 
to accommodate growth of the boundary layer. The velocity ratio at the KAPPA node 
is fixed by CBAR. The ratio ETA(KAPPA)/ETA(NETA) determines how thick the boundary 
layer can be relative to the location of the KAPPA node. All other node locations 
can be adjusted by the REFIT option. 

6.7.1 REFIT 

An option has been developed for the BLIMP-J code which will change the values 
of the independent variable, n, (ETA(I), the nodal distribution across the boundary 
layer) during code execution. The purpose of this option is to provide a means for 
maintaining an optimum nodal distribution for problems which include nonsimilar ef- 
fects such as transition to turbulence, blowing, pressure gradients, long stream- 
Tvise running lengths, etc. This readjustment Is accomplished while preserving the 
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fundamental characteristics of each profile, namely, basic profile shape, wall and 
edge derivatives, and integral properties. Potentially a number of bases may be 
identified for selecting nodal distributions and for making decisions relative to 
changing the existing distribution, e.g., mapping of any one of the velocity, tem- 
perature, and specie profiles. However, since adequate mapping of the velocity pro- 
file is the most commonly encountered problem, a selection criterion based on this 
parameter has been implemented, and the identification, evaluation and implementa- 
tion of any other possible criteria has not been pursued at this time. Initially 
the selection criterion has been based upon maintaining a desired (specified) ve- . 
locity ratio distribution across the boundary layer. For nonsimilar turbulent 
flows, for example, the nodal distribution will change as a function of distance 
to account for the changes in velocity profile shape as the turbulent layer develops. 
The decision to refit is made following a converged solution and is based on whether 
or not the newly calculated velocities vary by more than a selected ratio from the 
desired values. 

The REFIT procedure is currently valid for all forms of curve fitting across 
the boundary layer (KR(IO)), i.e., all quadratics, quadratics with a final cubic and 
all cubics. Finally, as a result of the basic features of the REFIT option, it is 
possible to change the number of nodes used to describe the boundary layer. This 
latter capability has been programmed only for the case of transition from laminar 
td turbulent flow, as a means for eliminating the unnecessary and expensive nodes 
from laminar calculations. As such, this option is limited to this application; 
however, potentially it may be programmed for more general application. The REFIT 
option is limited to a maximum of 15 nodes; however, as might be anticipated, the 
ability to maintain a more optimum distribution of nodes makes it possible to solve 
most problems using fewer nodes than normally required without REFIT. For example, 
for some long streamwise length, turbulent flows, it is either very difficult or 
impossible to estimate in advance the best distribution for the entire length using 
all 15 nodes. With REFIT, it is possible to achieve good results with normal selec- 
tion of desired velocity ratios using 12 nodes. Since solution times vary roughly 
as the number of nodes squared, this represents a saving of 40 percent in computer 
time, some of which is used in the refitting operation. 

6.7.2 Basic REFIT Procedure 

A description of the basic procedure is as follows. An input switch (KONRFT) 
is available to activate the REFIT option. If KONRFT is greater than 0, the 
REFIT option will be used. In this event, a set of desired values of the velcoity 
ratio, u/Ug (F2FIX(I)) must be read in. These represent the desired, fixed values 
of u/Ug as a function of node number. This set of values is selected based on such 
considerations as keeping nodes within the laminar sublayer for turbulent flows 
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(u/Ug < -0.05); maintaining good spacing in the middle velocity region where inte- 
gral quantities are strongly affected; and, finally, defining and maintaining good 
spacing at the outer edge to prevent overshoot of the profile. (Note that this lat- 
ter goal is one of the advantages of the REFIT method since the nodes between the 
fixed node (KAPPA) and outer nodes are tied to desired velocity ratios which are less 
than 1.0). 

The capability to change the number of nodes (NETA) across the boundary is 
also available. Currently this is associated directly with the onset of transition 
from laminar to turbulent flow. The switch KTURB determines if this sub-option is to 
be employed. For KTURB = 1 the number of nodes will be changed following the first 
turbulent solution for transition based on Re^, momentum thickness Reynolds number. 
The BLIMP code assumes a finite transitional length which is equal to the streamwise 
length prior to onset of transition. Consequently, the first turbulent solution is 
still effectively a laminar solution because the transitional factor applied to the 
eddy viscosity is equal to zero. Thus the laminar nodal distribution is adequate 
for the "turbulent" part of the solution at the first turbulent station. 

Following a converged solution (at the end of OUTPUT), the REFIT is called 
if KONRFT > 0 and either IS = 1, the ratio criterion is exceeded, or the number of 
nodes is being changed. At this point, the n values and all the primary boundary 
layer variables and their derivatives are passed to the main subroutine (REFIT) of 
the REFIT option. This package first takes the existing distribution u/Ug(I), con- 
sisting of ETA(I), F(2,I) and derivatives, generates the quadratic and cubic curve 
fit coefficients consistent with the curve fit option used in BLIMP (KR(IO)) and then 
solves for the new locations of the ETA nodes based on the F2FIX values. Additional 
points are generated in each new polynomial segment (NPOINT per segment). These 
data points, subject to the following constraints, are created in the subroutine 
POINTS. 

1. Connecting curves must have equal function values at the new node. 

2. Connecting curves must have equal first derivatives (spline fit) at the 
new node. 

3. Connecting curves roust have equal second derivatives at the new nodes if 
the curve option is all cubics, KR(IO) = 0. The function value and the n 
value must be maintained at the first and last nodes. 

4. The first derivative value must be maintained at the first and last node 
(except for all quadratics, KR(IO) = 2, for which the outer derivative 
must float). 

5. The function value and the n value must be maintained at the KAPPA node. 
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These data points and constraints which define the old curve together with the 
new n values are then operated on by a series of subroutines (FISLEQ, FILQ3, FINEQ, 
and FILQ5) which perform a least squares curve fit. The results of this operation 
are returned to BLIMP as the new values of F{2,I), F(3,I) and F(4,I) at the new 
values of ETA(I). This process has been selected specifically to preserve the im- 
portant characteristics of the profile, namely the derivatives at the wall and all 
integral quantities. 

In identical manner, the other dependent variables, i.e., G(1,I) and SP(1,I,K), 
are adjusted to the new values of ETA(I). Note that the redistribution of n is 
based on the input u/u^ selection criterion; once this has been completed, all other 
variables are adjusted to this new distribution. This is the only selection criter- 
ion considered at this stage of development. 

6.8 RESTART/FIRST GUESS OPTION 

An option [KR(2) = 3] is available for restarting BLIMP at any solution sta- 
tion. This option is useful for continuing a solution which has been stopped during 
execution. (For example, exceeding the time limit or faulty data downstream of the 
selected station.) RESTART should be used with care since there is some loss of ac- 
curacy at the restart station. It is important that the restart station be a valid 
solution station since the input is accepted as the solution. The card punch options 
(KR{8) = 1,2) should not be used with RESTART if the restart station is downstream 
of the throat since the normalizing factor, throat radius, would not be corrected 
for displacement thickness. 

A potential problem associated with the RESTART option involves turbulent 

transition. This version of BLIMP-J has a transition length for the development of 

a fully turbulent boundary layer. This length is equal to the length upstream of 

the station at which the turbulent transition criterion (Re.) is exceeded. A RESTART 

b 

should not be made at a station in this region. For restarting in the fully turbu- 
lent region the transition Reynolds number should be input as zero. 

The option for inputting a first guess at the first station (KR(2) = 1) is 
useful for starting those problems which have well developed turbulent profiles. 

The built-in guess can lead to an excessive number of iterations for such cases. 

This option is also useful for starting, those problems which have a large degree of 
nonsimilarity in streamwise solutions. However, it is very difficult to provide 
accurate profile information without careful calculations or output of a previous 
solution. A reasonable first guess frequently can be obtained from the output of a 
■previous, similar problem (see Sample case 6.1). 
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The additional input for RESTART or FIRST GUESS is described in Group 9 of 
the input instructions. For RESTART this information can be obtained from the out- 
put at the restart station. If the restart station is also a refit station, the 
values of ETA and the nodal distribution of (F(2,I), G(1,I) and SP(1,I,K) are those 
of the REFIT output.* The input ETA values must agree with those used for the solu- 
tion station. 

6.9 . TURBULENT TRANSITION 

Transition to turbulent flow can occur in two ways (see Input Instructions, . 
Group 8). 

• The momentum thickness Reynolds number exceeds an input critical value 

e The station number equals a prescribed value for transition 

In the first case a transition length for full turbulence is used (see Section 2), 
whereas, in the second case full turbulence occurs immediately. 

It is not possible to give an appropriate, universal transition value of mo- 
mentum thickness Reynolds number for compressible, highly accelerating flows. A 
flat plate zero pressure gradient value of Re^ = 360 serves as a nomial guess. 

It is known that for accelerating flows the transition value increases. The value 
selected will depend on the particular problem under consideration. 

6.10 BLIMP-J INTERFACE WITH OTHER JANNAF PROGRAMS 

Special input and output features have been added to the BLIMP-J program to 
make interface with other JANNAF programs used in the rocket engine performance and 
evaluation procedure more convenient for the user. Part of the required input to 
BLIMP is the edge pressure distribution and the coordinate pair (x,r) description of 
the nozzle contour. These quantities can be directly obtained as part of the punched 
card output of TDK in the form of a namelist of values PITAB (pressure), XITAB (x co- 
ordinate), and YITAB (nozzle radius). This output typically starts near the nozzle 
throat and consists of several hundred values for each variable. Similar information 
for the region upstream of the throat can be obtained from DDK. The quantities can 
then be used directly as input to BLIMP in namelist $INPUT, which is described in Sec- 
tion 5.2. BLIMP also uses the same form of the JANNAF thermochemical data as TDK, 
thus the same species decks can be used for both programs (see Section 5.2, Group 
13). 

The BLIMP-J program will also punch a corrected body contour (XITAB, YITAB), 
in the namelist form suitable for direct input to TDK. (The corrected body contour 


* 

The quantities used for RESTART input are marked by f on the Sample case 1 output. 
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option is described in Section 4.2 in subroutine ROCOUT.) This corrected contour is 
useful if it is desired to rerun TDK using the inviscid flow field contour (body con- 
tour minus the body displacement thickness as calculated by BLIMP-J) or if it is 
desired to have a new body contour (inviscid flow contour plus the body displacement 
thickness) for other purposes. 

6.11 POTENTIAL PROBLEM AREAS 

The integral matrix procedure v/hich is used to solve the boundary layer equa- 
tions uses general Newton-Raphson iteration, as does the chemistry solution proce- 
dure. In this iteration process the derivatives of all equations with respect to 
the primary dependent variables are employed to drive the errors toward zero. The 
boundary layer equations converge very rapidly (3 or 4 iterations) when chemistry 
is not taken into account but the chemistry equations themselves are very nonlinear 
and, furthermore, can cause the boundary layer equations to become very nonlinear. 
Therefore, it has been necessary to develop extensive convergence damping procedures 
for both the chemistry and boundary layer iteration procedures. These have proven 
generally to be quite satisfactory, but difficulties are sometimes encountered for 
very severe problems. The types of problems which can occur, the symptoms of these 
problems, and procedures for coping with the problems are discussed in this section. 
The subject of possible program errors and debug output useful for tracing any such 
errors is discussed later in this section. 

The most common causes of difficulty are errors in input, improper selection 
of input, and chemistry nonconvergences. Errors in input are the most frequent and 
include improper format, omitted data, extra data and mispunched cards. As a general 
rule, input quantities should be verified with the program output whenever possible. 
Most of the problems with selection of the input are associated with the location of 
the solution station and the nodal distribution which have been discussed in Sections 
6.6 and 6.7, respectively. The location of the solution stations is important pri- 
marily in regions where the degree of nonsimilarity is high; for example, large B or 
rapid changes in wall conditions. Often a slight change in solution station location 
will alleviate the problem. Errors of this type frequently manifest themselves as 
■ nonconvergent solutions (50 iterations). Characteristically the DAMP term is much 
less than one or fluctuates rapidly, iterations are skipped, or the iteration count 
may recycle from 50 to 30 and then precede to 50 before stopping. If the solution 
goes 50 iterations and has not converged a relaxed convergence test is applied. If 
this test is passed the solution procedure continues, often without further problems. 

An unsuccessful solution which manifests itself as a nonconvergent chemistry 
is often not the result of an inadequacy or programming error in the chemistry rou- 
tines (EQUIL and its subroutines) but is traceable to one of the following: (1) an 

excursion has occurred during the boundary layer iteration such that the chemistry 
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routines have been called upon to solve an impossible problem, or (2) a bad chemis- 
try data deck has been employed. The latter could be bad thermochemical property 
data (e.g., curve fits which produce negative Cp) or a poor choice of species (e.g., 
omission of a species important to the solution). These types of considerations 
should be investigated first if a nonconvergent chemistry occurs (see Section 7.6 for 
chemistry debug output). 

On occasion when the equations are particularly nonlinear, the chemistry ite- 
ration can get temporarily trapped away from the solution. A very elaborate rescue 
procedure ensues which usually overcomes the difficulty but, sometimes, not within 
the allowed number of chemistry iterations. If a chemistry solution is nearly con- 
verged, recovery may be possible. For this reason, the boundary layer iteration is 
allowed to proceed with a notation in the output that a nonconvergent chemistry has 
occurred. If no nonconvergent chemistries occur in the iteration just preceding a 
converged boundary layer solution, any prior chemistry nonconvergences can be dis- 
regarded. On the other hand, if a chemistry solution is far from convergent, it may 
produce a fatal error in a subsequent chemistry or boundary layer iteration. In any 
event a STOP is encountered after 20 nonconvergent chemistry solutions accumulate in 
the current case. 

If the user is considering unequal diffusion coefficients, he should then 
revert to assumed equal diffusion coefficients since the derivatives used in the 
convergence process (these do not affect the final answer as the solution converges) 
are less exact in unequal diffusion problems. Also, one could set up a sequence of 
subcases leading up to the problem of actual interest. 

It should be emphasized that the convergence procedures employed in the chemis- 
try and boundary layer iterations are nearly 100 percent reliable for most problems 
and get into difficulties only occasionally and then only for problems with massive 
blowing (say where the boundary layer gas in the vicinity of the wall consists of 
about 99 percent or more of gas injected from the wall), for large nonsimilarity ef- 
fects, and for unequal diffusion problems where the unequal diffusion effects are 
very strong. 

It is, of course, possible that a bug in the program has actually caused a 
problem. It is thus pertinent to review the operational status of the program. The 
BLIMP program of which BLIMP-J is an extension has been used extensively over the 
last 7 years. During this time the number of boundary layer solutions which have 
been obtained probably exceeds 3000, v;hile the number of chemistry solutions (re- 
quired at each boundary layer nodal point and for each boundary layer iteration) is 
probably well in excess of 300,000. In view of the size of the program and its enor- 
mous number of options, however, it is possible that some errors may still exist for 
some combinations of these options. For this reason an elaborate system of debug 
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write statements has been retained in the program. Debug output is obtained by set- 
ting KR(15) through KR(20) to nonzero values. The output obtained with the various 
KR options is summarized in Section 4. The extremely ambitious and sophisticated 
user should be able to track down any such error with the use of this debug output 
and the information presented in this manual. 



SECTION 7 


OUTPUT 

This section contains a discussion of the normal mode output for the BLIMP-J 
program and brief comments on the debug output. Much of the output is self- 
explanatory; therefore, only those terms needing further explanation or definition 
will be considered. The units for output are the same as those used for input. 
Standard abbreviations are used in most cases with some exceptions where space was 
limited. The most notable exceptions are: 

B — BTU - British thermal unit 
LB - LBM - pounds mass 
F - FT - feet 

7.1 OUTPUT SUMMARY 

In general the output consists of the following sections: 

• Program heading, control options, input stagnation conditions, and 
turbulent parameters 

• Edge gas composition and the input thermodynamic curve fit data 

• A list of the elements, the associated base species, and transport 
property calculation procedures 

• The edge expansion thermodynamic state for the stagnation conditions and 
each solution station 

t Summary table of wall and edge conditions 

t Boundary layer solution, station by station, nodal information in detail, 
and REFIT output 

• Corrected contour supnary for use in connection with TDK program 

• Plot output. 

It should be noted that the entire inpyt data is not printed as part of the output. 
It is recommended that the input be listed for use in identifying errors and preser- 
ving the input details for later reference. The first three of the above need no 
further explanation. They are clearly illustrated by the sample problem output in 
Section 8. 


7-1 



7.2 EDGE AND WALL CONDITIONS 


7.2.1 E dge Expansion Thermodynamic State 

Most of the information presented in this output is self-explanatory, however, 
the following definitions are given for the purposes of clarity. 

• CP-FROZEN - Specific heat calculated from the mass fraction and specific 
heat of each species at the specified temperature 


CP-FROZEN = ^ K.Cp 
i 

• CP-EQUIL - Specific heat calculated from 3h/3T)p and allowing for changes 
in composition 


Cp 


EQUIL 




3K. 

1 

3T 


• ■ (H^)s 

• MACH NUMBER = Ug//(8P/3p)"j 

7.2.2 Summary Table of Wall and Edge Conditions 

The following quantities appear in the summary table and may need some expla- 


nation: 

t XI - The normalized streamwise coordinate defined by Equation (3-6) 

s 

*0 

• BETAV — Defined by Equation (3-12) 

3 In u, 

^ ^ 3 In 5 

• BETAP — Defined by Equation (3-13) 
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• COMP FLUX — Input wall flux of boundary layer edge gas, pyrolysis gas, 
and char gas for KR(9) = 0, 1 or 2. 


7.3 BOUNDARY LAYER OUTPUT AT EACH STATION 

For each solution station four groups of information are output; 

• Iteration summary 

• Miscellaneous output - integral properties, wall conditions, transfer 
coefficients, etc. 

• Nodal information 

• Refit information 

7.3.1 Iteration Information 

The iteration information shows the progression toward a solution. Most of 
this information is useful in locating convergence errors. For normal solutions 
the value of ALPH (the coordinate stretching parameter, and FPPW (the normalized 
velocity gradient at the wall) should stabilize before convergence. The DAMP term 
reflects the allowable correction for each iteration and should rapidly approach a 
value of 1.0. Very small or zero values of DAMP indicate that the error in the so- 
lution is very large and that convergence may not occur. 

As part of the iteration information the maximum linear error, the maximum 
nonlinear error and the equation in which it occurs for each set of conservation 
equations (momentum, energy, and species), and the number of nonconvergent chemistry 
solutions are printed. In Section 3 the solution technique was discussed and it was 
stated that the errors were to be driven to zero. The actual convergence test re- 
quires that the errors be reduced to less than some relatively small amount. The 
convergence test is given below. 


^'"MAX ^'^’-MAX - “h ^NETA ^ ® 


(7-1) 


where ELj^j^ is the absolute value of the maximum linear error and ENL^^y is given by 


MAX 


ENL^X = 


^ ^O^M ^E 

MAX (1, |B I) o„ ’ MAX (1000. I H:,. - | ) 
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where E^ij, E^, and E^p are the absolute values of the maximum nonlinear errors in 
the set of momentum, energy, and species equations, respectively. The equation 


numbers, printed just to the left of the 
as shown below. 

Momentum Equations 

Number 

1 

2 

i + 3 

Energy and Species Equations 

Number 

1 

i 


maximum error, correspond to the equations 


Equation 

surface equation 

constraint, Equation (3-84) 

momentum equation between the i and i-1 
nodes. Equation (3-42) 

Equation 

surface equation 

conservation equation between the i and 
i-1 nodes. Equation (3-43) or (3-44) 


The last integer to the right of the iteration printout is the number of non 
convergent solutions. This number is reset to zero after each converged boundary . 
layer solution. A maximum of 20 nonconvergences is allowed before the program is 
terminated. 


7.3.2 Miscellaneous Output 

The following definitions will be helpful in understanding this section of 
the output: 

• ALPHA - Coordinate stretching parameter. ALPHA(a^), ETA(n), and y (the 
physical coordinate) are related through 



pdy 


• HEAT FLUX-DIFFUSIONAL — heat flux to the wall due to diffusion, mass dif- 
fusion included (-da^ in Equations (2-24) and (2-86)). For options KR(9) 
w 

3, 4, or 7 this term satisfies the energy balance equation 


q, + RERAD + (pv) h - m h° - m h° - RADFL(1 ) *RADR( IS) = 0 
a^. w w c c g g 
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where iri^ and are output as char and pyrolysis gas rates and h° and h° 
are Input in Group 6. 

t HEAT FLUX-TOT ENTH - net enthalpy flux to wall; diffusional heat flux 

less the energy convected away from the wall by blowing (= -qg^ - (pv)^h^) 

• RERAD - reradiated heat flux, zero except for energy balance problems 
where e > 0 

w 


t QCOND = k g 


wall 


• MECHANICAL REMOVAL - computed as the difference between the total gas 
flux and the sum of the pyrolysis and char fluxes 

• Blowing parameters defined by 


m 

R' = _9 

g p^u^St 


where m^ is the mass flux of pyrolysis gas, char gas, or total gas at 
the wall 

• Transfer coefficients 


'f/2 ^ (p,u”)u 


St = 


total diffusional heat flux 


Pl“l^^e ■ 


CM - mass diffusive flux j 
PiUtIk. - K. ) 

'*e ''w 


where K. is the mass fraction of element j given by 

V 


K. =y^ C..K. 
J ^ IJ 1 


where C.. is the mass fraction of element j in base species i. 

• w 
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• Momentum thickness (0), enthalpy thickness (X), and mass thickness 


thickness 


= f jey_ 

/ P u 

J. e e 


e'e ^^e 


where P is either, u, G, or 


P) 

^dy 

w' 




e 


Displacement thickness = 



_ey_\ 

Pe*^e/ 


dy 


• Effective body displacement - same as displacement thickness for no blow 
ing cases. In the case of blowing, this parameter gives the inviscid 
flow field displacement. Given by 

^ fg 


• TOTAL HEAT TO WALL - This represents the net heat that is absorbed by 
the walls and must be removed by some sort of cooling or retained by the 
walls. 





where L = 



axi symmetric flow 
2-D flow 



HEAT FLUX - TOT ENTH 
-RADFL(l) * RADR(IS) 


for. KR(9) = 0,1 ,2 

for KR(9) = 3,4,7 
and RADFL(l) * 
RADR(IS).LT.O 


7-6 



• THRUST LOSS (AF) 


/ 

&F = L p u^e cos ^ (1 ^ 

" ® V ®Pe“e 

where L defined as before. This represents the thrust loss due to boun- 
dary layer effects. All of the terms in the equation above are taken from 
the BLIMP solution at the station of interest. 

• TOTAL WALL AREA - The wall area calculation is an approximation to the 
actual wall area and is based on trapezoidal integration between BLIMP 
solution stations of 



s 



where L has been previously defined. 

• ACCELERATION PARAMETER-K - This parameter gives an indication of possible 
laminarization of a turbulent flow. Values of K exceeding 3 x 10"^ indi- 
cate possible laminarization. 


K = 


V dU 
e e 

2 ds 


• INVISCID MASS IN BL - This represents the portion of the mass flux in the 
boundary’ layer that was originally part of the inviscid flow. Thus it 
represents the mass flux between the zero streamline and the boundary 
layer edge 


INV 


= L fe 


• TOTAL MASS IN BL — This is the total mass flux contained between the wall 
and the boundary layer edge. In the case of no mass injection it is the 
same as the inviscid mass flux given above 

■VoTAL = L (fg - 
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7.3.3 Nodal Information 


The values of the primary variables, their derivatives, and several derived 
quantities are given at each node. First derivatives are denoted by P and second 
derivatives by PP. (For example FPP is the second derivative of F with respect to . 
oi^n.) All derivatives are with respect to a^n. F is the stream function and G is the 
total enthalpy. The thermodynamic Prandtl number is based on frozen specific heat. 

The modified Schmidt number is a Schmidt number based on the self-diffusion coefficient 
for a fictitious species representative of the system as a whole. The term RH0SQ*EPS/ 
RH0*MU is the ratio of the local turbulent viscosity to the molecular viscosity at the 
boundary layer edge. 

7.3.4 REFIT Information 

If the REFIT option is called the new values of ETA and the primary variables 
are printed. This information is particularly useful for RESTART input. 

7.4 CORRECTED CONTOUR OUTPUT 

The option KR(8) ^0 causes printout and punch of contours corrected for the 
effects of effective body displacement. This option is explained in detail in Sec- 
tion 4.2 in the discussion of subroutine BllB. The output associated with this op- 
tion is self-explanatory. If the contour input to BLIMP is a body contour, the 
corresponding inviscid flow contour (which can be used in TDK) is printed (and 
punched if requested). Similarly, if the contour input to BLIMP is the desired in- 
viscid contour then the new body contour is printed. 

7.5 PLOT OUTPUT 

An option is available to enable a plot file to be written to a specified 
unit. (This unit is identified as KPLT and has been set as KPLT = 18 in B02A. ) The 
file is written as a series of records by unformatted write statements. The source 
and content of each record are listed below. This output can be selectively used 
as input for a plotting routine. All units are those specified by the KR(13) option. 

Record 1 (B07A) 

Write list*: stagnation pressure, stagnation enthalpy, number of stations, 

s(40), 5(40), x(40), R(40), P(40), Ue(40), Bp(40), Bv(AO) 

Record 2,3,... NS-1 (BllA) - one for each solution station 

Write list*: station number, number of nodes, net enthalpy flux, %, 

(pv)w. St, BfoTAL> *^B> total heat to the wall, 

•k 

The write list is exactly as it appears in the program except that variable names 
and symbols have been used in lieu of Fortran variables. The numbers in parentheses 
are the variable dimensions. 


7-8 



thrust loss, total wall area, acceleration parameter, invis- 
cid flow in the boundary layer, total mass flow in the boun- 
dary layer, y(15) u/ue (15), static enthalpy 05), T(15), 
M{15), p(15), p(15), Cp(15), p^e/pePe (15). 


7.6 DEBUG OUTPUT 

There is extensive debug output which can be optained by proper choice of the 
KR(15) through KR(20) options (see Section 5). However, most of this output is use- 
ful only to the very sophisticated user. There are two parts which may be useful to 
the average user. The first is really not debug output but is the regular program 
output for a converged solution, output after each iteration (KR(4) = 1). This can 
be very useful to help locate where the source of trouble is. The second output is 
for nonconvergent chemistry (KR(18) > 0). This, is helpful in locating bad values of 
Cp or irregular species concentrations. This output contains the complete thermody- 
namic output normally given with the edge expansion and some additional output for 
each species, the most important of which is Cp. An example of this output (Figure 
7-1) and an explanation of the terms, which will help to clarify the debug output, 
are given below. 

PIVOT/ROW/etc. - This output appears when the matrix for the chemistry problem 
is singular. (The numbers that follow the test give the location of the 
singularity.) 

ISS - station number 

ITEM = 1 

II - node number 

MITS - boundary layer iteration number 

ITS - chemistry iteration number (numbers larger than 50 appear when a fatal 
error in problem set-up has resulted in an impossible problem which has 
been caused to exist from the chemistry solution by artificially setting 
ITS.GT.50) 

IQQ — 1 for nonconvergent, -2 for debug output before nonconvergence 

KR(6) — 1 for gas phase problem, 0 or +1 for surface balance problem 

HIP,SIP,TT(II) — enthalpy, entropy, and temperature for this iteration in 
cal , gm, °K 

ALP(I) - mass fraction of element I 

LEF(I) - described in Fortran Variables List 

FR(I,II) - mole fraction of species I at node II 
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Figure 7-1. Sample of nonconvergent chemistry debug output. 



((C(I ,J) ,etc. - This output comes from RERAY (B15B) and pertains to the matrix 
that is to be inverted. 

FLAG - This is the variable IFC described in the Fortran Variables List. 

PP - partial pressure 


7-n 



SECTION 8 


SAMPLE CASES 


8.1 


SAMPLE CASE 1 - SPACE SHUTTLE MAIN ENGINE 


This sample problem represents a typical problem for a liquid propellant 
rocket nozzle. The nozzle geometry, pressure distribution, fuel composition, and 
wall temperature are typical of the space shuttle main engine. The nozzle contour 
and pressure distribution input were provided from the output of a single zone TDK 
run. The pressure distribution and wall temperature are shown in Figure 8-1. The 
stagnation conditions are given below: 

Pp = 2.0477 X 10^ N/m^ 

T^ = 3653°K (H^ = 6.9501 x 10® J/kg) 

MR = 6 

The stations selected as solution stations are indicated on Figure 8-1. The 
stations marked with a 0 are to allow for the discontinuities in wall temperature. 

A first guess (KR(2) = 1 and Group 9) at the first solution station was made using 
the results of a previous problem at different conditions. This was done to reduce 
the number of iterations at the first station, where a well developed turbulent 
profile was expected. Maximum use of the namelist input was made, and the default 
values of many of the parameters of Groups 4 and 8 were used. (The Kendall model is 
the default turbulent model.) The unequal diffusion option (KR(14) = 1) was used 
and diffusion coefficients (F^ and G^) were input (Group 12). (Reference 10 contains 
a discussion of how to compute diffusion coefficients.) Also, a corrected body con- 
tour (KR(8) = 3) v/as printed out. 

A complete listing of the input and samples of the output are provided. (Run 
time on a Univac 1108, Exec 8 system was 260 system seconds.) It is worth noting 
that for this problem the use of unequal diffusion coefficients resulted in an ap- 
proximately 20 percent increase in execution time and only a 1 to 3 percent change 
in the parameters of interest (heat flux, thrust loss, etc.). The laminar transport 
properties, viscosity, thermal conductivity, and Schmidt number, changed by 10 to 20 
percent; however, this change was overshadowed by the turbulent transport mechanisms. 
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8-2 


Figure 8-1. Pressure distribution and wall temperature', sample case 
(R, = 0.130878 m, P = 2.0477 x 10^ N/m^) 
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8.2 SAMPLE CASE 2 - AIR FLOW IN A NOZZLE 

This sample problem illustrates the homogeneous gas option (KR(7) = 3) and 
the Cebeci turbulent model with variable turbulent PrandtT number. The input data 
was taken from JPL data for air flow in a conical nozzle (Reference 32). Figure 8-2 
shows the nozzle contour and the pressure distribution. (BLIMP predictions for this 
data are presented in References 18 and 33.) The input is in English engineering 
units (KR(13) = 1) and no namelists are used. 

The thermodynamic data cards for air were entered as two sets of cards for N 2 
and O 2 to illustrate the input for a mixture of gases. Alternately, a species AIR 
can be created and only one species entered. In this case the curve fit constants 
for Cp, h, and s can be easily obtained by curve fitting any set of tabulated values. 
The expressions for viscosity and Prandtl number were obtained in this manner. 

A list of the input data and samples of the output are presented in the fol- 
lowing pages. The run time for this problem was on a Univac 1108, EXEC 8 system was 
120 system seconds. 
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JANNAF boundary LAYER INTEGRAL MATRIX PROCEDURE 
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8.3 SAMPLE CASE 3 - BINARY DIFFUSION EXAMPLE 

This sample problem illustrates the deck setup for the binary diffusion option. 
The propellant and wall materials are discussed in Section 6.4. The appropriate ele- 
mental composition of the edge gas, the char material and the dummy species are shown 
in the Groups 11 and 13 input. A fairly complete species deck for the H-C-N-0 gas 

system is retained. The effect of this large number of species on the computation 

time can be seen by comparing the time per iteration for this problem with that of 
Sample case 8.1. The time per iteration is about 3 seconds,* of which about 1 second 
is for the boundary layer iteration and about 2 seconds are for the chemistry itera- 
tion. This same problem required approximately 2 seconds more per iteration when 

the binary diffusion option was not used. {The total run time for 27 stations is 

about 600 seconds.) 

This problem is similar to the type encountered in solid propellant nozzles. 

It has been assumed that the boundary condition for the wall material (MX4926, car- 
bon phenolic tape) can be modeled as a steady-state energy balance (KR(9) = 4). 
Basically, this means that all of the heat to the wall is used to ablate the wall 
material and that none (or very little) is removed from the outer surface of the 
nozzle. 

The pressure distribution and nozzle contour are shown in Figure 8-3. The 
stagnation conditions are: 

Pg = 6.89286 X 10® N/m^ (1000 psia) 

Tg = 3880°K (Hjj = 34518 x 10® J/kg) 

For solid propellants which contain solid Al^O^ after combustion it is necessary to 
remove the solids from the elemental composition of the edge gas. Usually this is 
done by removing all the A1 and the necessary mass of 0 used to form Al^O^. 


★ 

Seconds as used here refer to Univac 1108 Exec 8 system seconds. 
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Figure 8-3. Pressure distribution and nozzle contour, sample case 
(R,'= 0.674 m, = 4.134 x 10" N/m^). 
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molecular transport properties 

VISCOSITY BUDnCNBERG • WILKE MIXTURE FORMULA WITH MUdl CALCULATED ON 
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stagnation solution Followed by bqundary«layer edge expansion 
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